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Vorwort 


Seitdem praktisch alle Personalcomputerhersteller Logoversionen auf ihren 
Mikros implementieren, wird dieses Programmiersystem verfügbar. Seit 
über zehn Jahren wird mit Logo schon im Bildungsbereich experimentiert. 
Logo ist keine kommerzielle Sprache, sondern wird im Ausbildungs- und 
Freizeitbereich weitere Freunde gewinnen. 


Die Bezeichnung «Logo» ist eine Anlehnung ans altgriechische «Logos», 
was das Wort, die Vernunft oder sinnvolle Rede bedeutet. Die Logophi- 
losophie ist einer geistigen Werkstatt oder Gedankenschmiede vergleich- 
bar, die jedem erlaubt, eigene Werkzeuge und Instrumente für Aufgaben- 
stellungen zur Lösung und Bearbeitung von Aufgaben mit dem Computer 
herzustellen. In Verbindung mit der Turtlegrafik werden neue Ideen zum 
mathematisch-naturwissenschaftlichen Unterricht mit Kindern verwirk- 
licht. Logo ist damit aber keine simple Kindersprache. Auf allen Stufen 
eines Unterrichts mit und über Computer bietet Logo zahlreiche Möglich- 
keiten. Selbst einem Informatikunterricht mit höchsten Ansprüchen wird 
Logo gerecht. Logo bedeutet funktionsorientiertes Programmieren und 
unterstützt damit in idealer Form das Top-down- oder Bottom-up-Prinzip. 
Daten und Programme sind jederzeit interaktiv oder programmgesteuert 
manipulierbar. Dynamische und komplexe Datenstrukturen lassen sich 
über strukturierte Listen in Logo beschreiben und verarbeiten. Wer Logo in 
Deutsch mit deutschsprachigen Funktionen und Fehlermeldungen wünscht, 
kann das System nach seinen Vorstellungen umfunktionieren. 


Da Logo beim zweiten Hinsehen keine Kindersprache ist, entstehen 
Fragen und Wünsche. Das Referenzmaterial der Hersteller bietet zu wenig 
Erklärungen und Beispiele. Die meist sehr schönen elementaren Einfüh- 
rungen mittels Turtlegrafik sind einmal zu Ende. Es fehlt dann ein weiter- 
führendes Arbeitsbuch mit fortgeschrittenen Beispielen und Projekten, die 
die Lücke zwischen Einführung und dem Referenzmanual schließen. Erst 
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eine gewisse Fülle nachvollzogener Aufgaben ermöglicht eigene kreative 
Wege. Doch ein Arbeitsbuch für Logo ohne Einführung wäre ein Mangel 
gewesen. Somit ist ein dreigeteilter Aufbau des Buches entstanden. 

Der Einführungsteil beinhaltet bereits eine Fülle von Aufgabenbeispie- 
len. Die Gliederung entspricht dem Aufbau von Programmierkursen über 
Logo in der gymnasialen Oberstufe. Da die Hersteller Einführungen über 
die Turtlegrafik mitliefern, wird dieser Teil nicht hervorgehoben, sondern 
nur in Kapitel 5 grundlegend nachgestellt. 

Hat man die Einführung durchgearbeitet, kennt man den Basiswort- 
schatz von Logo und die Logogrammatik. Der Mittelteil bietet gezielt die 
Besprechung fortgeschrittener Funktionen an. Im letzten Teil werden um- 
fangreiche Aufgaben dargestellt, die belegen, daß Logo vor keiner Aufgabe 
zurückschreckt. Fehlende Datentypen und hierauf operierende Funktionen 
werden als eigene Spracherweiterung in Logo definiert, um dann erst mit 
den neuen Werkzeugen die eigentlichen Aufgaben zu lösen (beispielsweise 
die Arrays und Sortierverfahren in Kapitel 28). Gleiches gilt für die 
Dateiverarbeitung. Die Turtlegrafik wird zum Zeichnen von Funktionen 
und im Telespiel «Bombardieren» erneut eingesetzt. Dennoch kann und 
will das Buch keine «Logobibel» sein und kann auch nicht das Hersteller- 
handbuch ersetzen. Als Arbeitsbuch bietet es Beispiele und Aufgaben, mit 
denen sich der Leser beschäftigen soll. 

Alle Beispiele sind mit der LCSI-Version (Logo Computer Systems 
Incorporated) auf einem Apple Ile erstellt worden. Es handelt sich um 
Apple Logo I. Eine Übertragung auf andere Logoversionen bietet der 
Anhang, in dem, einem Vokabelheft gleich, die abweichende Funktionsna- 
men anderer Versionen nachgesehen werden können. Die Beschreibung 
des Editierens und die Nennung bestimmter Kontrolltasten soll nur grund- 
sätzlich mit dem Logo-Editor bekannt machen, da der Leser natürlich mit 
seiner Version arbeiten lernen muß. Praktisch alle Programme laufen in 
LCSI-Logo unverändert auf den Rechnern: 


Apple II, IIe, IIc und Macintosh 
Atari 600 XL, 800 XL und 130 XE 
Atari 260 ST, 520 ST und 520 ST+ 
IBM PC und XT 
Standard-MS-DOS-Rechner 
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Im Anhang wird ein Verzeichnis der Logofunktionen aufgelistet. Nachfol- 
gend wird der Wortschatz den Wörtern anderer Logoversionen tabellarisch 
gegenübergestellt. 

Die marktgängigen Logoversionen werden mit ihren Abweichungen mit 
dem im Buch verwendeten LCSI-Logo verglichen. Fehlende Funktionen 
werden durch äquivalente benutzerdefinierte Funktionen ergänzt, so daß 
Programme dennoch erstellt werden können. Die so einander angepaßten 
Logoversionen sind: 


LCSI-Logo 

Atari-ST-Logo 

Logo für CPC 464, 664 und 6128 
DR.Logo für MS-DOS-Rechner 
Commodore-Logo (C64 und C128) 
MIT-Logo 

MIT-Logo deutsch 


Der informatisch Vorgebildete oder eilige Leser findet im Anhang einen 
kompakten Logoüberblick, der mit den Zusammenfassungen der ersten 11 
Kapitel eine Logogrammatik darstellt. 

Wer sich ernsthaft mit Logo beschäftigt, wird schnell unbestreitbare 
Vorzüge dieses Systems schätzen lernen. Leser mit BASIC-Erfahrungen 
sollten eine Empfehlung beherzigen: Vergessen Sie für einen Augenblick 
vertraute BASIC-Erfahrungen. Übertragen Sie auch nicht einfach alte 
Programme direkt in Logo. Der GO-Befehl und die Wertzuweisung für 
Variable sind untypisch für Logo. Beschränken Sie den Sprungbefehl GO 
auf einen Sprung je Benutzerfunktion, und lassen Sie Teilprogramme nie 
mehr als vier Anweisungszeilen haben. Benutzen Sie Funktionsnamen und 
Namen für Eingaben mit vollem Namen und nicht nur einen Buchstaben; 
Logo erkennt das, und Sie lassen damit Programme sich selbst dokumentie- 
ren. Anderenfalls würden Sie Logo sprechen, aber nicht Logo verstehen. 


Heusenstamm Dietrich Senftleben 


TEIL A 


Eine Einführung in Logo 


1 
Direktanweisungen 


1.1 Der Computer als Taschenrechner 


Jeden Personalcomputer können wir letztlich wie einen Taschenrechner 
benutzen. Wir müssen nur dessen grundsätzliche Bedienungsweise kennen. 
Anhand der Grundrechenarten wollen wir das zeigen. 


EIJEIIENEZIE 


Drücken wir die abgebildeten fünf Tasten eines Taschenrechners, so 
erscheint nach dem Auslösen der Taste [=] das Ergebnis 108. 

Bei einem Personalcomputer müssen wir statt der [=}Taste in der Regel 
immer die [RETURN }Taste drücken. Diese Taste signalisiert dem Compu- 
ter, daß die eingegebene Zeile beendet ist und ausgeführt werden soll. 
Darüber hinaus müssen wir in Logo ausdrücklich sagen, daß das Ergebnis 
auch noch ausgedruckt werden soll. Logo würde es zwar rechnen, aber von 
einem Ausdrucken war ja nichts gesagt worden! Ohne weitere Vorreden 
probieren wir jetzt kleine Rechenaufgaben aus. Berechnet und ausgedruckt 
werden soll: 4+97 


4x 27 
4 - 27 
4: 27 
Das jeweilige Fragezeichen fordert uns zum Eingeben auf. Das Fragezei- 
chen bezeichnet man auch als Promptzeichen. Erscheint also das Prompt- 
zeichen, so wissen wir, daß Logo eine Aufgabe beendet hat und auf neue 
Eingaben wartet. 
Der Personalcomputer ist eingeschaltet, und wir werden von Logo nach 
dem Startvorgang begrüßt. 
Das Blinkzeichen (Cursor) auf dem Schirm zeigt die Stelle an, an der 
unser nächstes einzutippendes Zeichen erscheinen wird. Das Blinkzeichen 
soll die Arbeit auf dem Bildschirm erleichtern. 
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WELCOME TO LOGO 
— 


7 

FPPRINT 4 + 27 
1 

TFR4CK 

108 

7 

PR 4 — 

-23 

gr 

PPRA4 7 27. 

I DON'T KNOW HOW TO FRA 


Das Kleingedruckte auf dem Bildschirm kennzeichnet jeweils die Ant- 
wort des Computers auf unsere Eingabe. 

Bereits diese ersten Beispiele zeigen Unterschiede, und wir sehen, daß 
unser Personalcomputer im letzten Beispiel etwas nicht versteht und sofort 
«meckert». An diesen Fehlermeldungen und vielen anderen Meldungen 
erkennen wir unsere eigenen kleinen Bedienungs- und später Programm- 
fehler. Wir müssen nur die Meldungen genau lesen und wissen, was sie 
bedeuten. 

Was ist hier passiert? Im Gegensatz zu den vorangehenden Zeilen wurde 
zwischen PR und 4 kein Leerzeichen (auch Blank genannt) durch Drücken 
der Leerzeichentaste gesetzt. Doch Leerzeichen sind für Logo lebenswich- 
tig. Am Leerzeichen erkennt Logo, daß ein Befehl oder eine Zahl beim 
Eintippen abgeschlossen worden ist. Logo kennt nur den Druckbefehl 
PRINT oder seine Kurzform PR. Aber ein PR4 ist ihm vollkommen 
unbekannt. Logo kann diesen Befehl PR4 nicht ausführen. («Ich weiß 
nicht, wie PR4 gemacht wird» bedeutet die ausgedruckte Fehlermeldung.) 

In Logo sehen die Rechenzeichen für die Grundrechenarten anders aus. 
Bei Kommazahlen muß ebenso wie beim Taschenrechner ein Punkt gesetzt 
werden, oder die nächste Fehlermeldung ist fällig... 
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> 


> 
?PFR A 
.148148 
?PFR A 
„148148 
?FR OA 
4 
4 
*x 


FALSE 
?FR 
TRUE 

PR 
FALSE 
>74 4 — 27) 
I DON’T KNOW WHAT TO DO WITH 92 


„i 


Unser Fehler ist korrigiert, und wir haben ein Leerzeichen eingefügt. Die 
Division führt zu einer Dezimalzahl. 

Das Gleichheitszeichen hat für Logo eine andere Bedeutung als für den 
Taschenrechner. Er ist ein Vergleichsoperator, ebenso wie die Zeichen < 
(kleiner als) und > (größer als). 

Nach solchen Vergleichen ist immer nur eines von zwei möglichen 
Ergebnissen fällig. Das Ergebnis des Vergleichs ist TRUE (wahr) oder 
FALSE (falsch). 

Der Fehlerkommentar zum Schluß ist entstanden, weil der Druckbefehl 
vergessen worden ist. Wie schon gesagt, Logo will ausdrücklich informiert 
sein, wenn ein Ergebnis ausgedruckt werden soll. Logo führt also die 
Rechenoperation aus und meldet dann: «Ich weiß nicht, was ich mit dem 
Ergebnis 92 machen soll.» 
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1.2 Was ein Taschenrechner nicht kann 


Die Zahlenvergleiche im vorangegangenen Kapitel sind Möglichkeiten, die 
ein einfacher Taschenrechner nicht hat. Doch Logo kann auch einzelne 
Zeichen, Wörter oder Sätze drucken. 


PR "4 

4 

?PR "COMPUTER 
COMPUTER 

?PR_" 


FR O CA B ZEHI 
AB ZEH 
FR CI 


FR CC6A EB] OCZEH [£]19I 
[A BI ZEH [] 

?FR O"WORTN NENNEN 
WORT [i= 


Ein einzelnes Wort ist immer am Anführungsstrich erkenntlich. Solch ein 
Wort besteht aus einem oder mehreren Zeichen. Zahlen sind ebenfalls 
Wörter. Man kann Zahlen mit oder ohne Anführungsstriche eingeben. 

Mehrere Wörter bilden einen Satz. Ein Satz steht immer in rechteckigen 
Klammern. Ein Satz besteht aus einem oder mehreren Wörtern. Der Satz 
kann auch aus weiteren Teilsätzen bestehen. Solch ein Satz wird in Logo 
auch als Liste bezeichnet. Stellen wir uns eine Merkliste mit seinen einzel- 
nen Teilen vor, wobei ja auch auf andere Merkzettel hingewiesen werden 
kann. Sonderfälle von Wörtern und Sätzen sind solche, die keinen Buchsta- 
ben oder keine Wörter oder Teilsätze haben. 

Tippen wir einmal ein Wort ohne die Anführungsstriche ein. Wir erhal- 
ten einen schon bekannten Fehlerkommentar. Geben wir also ein Wort 
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ohne Anführungsstriche ein, so hält Logo dieses Wort zuerst für einen 
Befehl (so wie PRINT oder PR), muß dann aber feststellen, daß ihm solch 
ein Befehl oder Arbeitsauftrag nicht bekannt ist, er also nicht weiß, wie... 

Beim Ausdrucken der Sätze (Listen) werden die beiden äußeren Klam- 
mern nicht gedruckt. Der Satz (Liste) [[A B] ZEH[]] besteht aus drei 
Teilen: Der Liste [A B], dem Wort ”ZEH und der leeren Liste []. Innerhalb 
von Sätzen müssen die Anführungsstriche bei Wörtern nicht gesetzt wer- 
den. Wörter werden ohne Anführungsstriche ausgedruckt. 

Die letzte Bildschirmzeile enthält eine Besonderheit. Wir sehen dort ein 
Wort, das aus Sonderzeichen besteht. Sollen in Wörtern solche Sonderzei- 
chen vorkommen, so müssen wir Logo mitteilen, daß das jeweilige Sonder- 
zeichen ausnahmsweise als normales Zeichen betrachtet werden soll. Diese 
Sonderzeichen haben wie das Leerzeichen für Logo die Trennereigenschaft. 
Das Aufheben der Trennereigenschaft erfolgt beim Eintippen jeweils mit 
CTRL-OQ (die CTRL-Taste und die Q-Taste müssen beide gedrückt wer- 
den, also CTRL gedrückt halten und dann Q tippen). Logo quittiert jedes 
CTRL-OQ mit einem Schrägstrich. Bei der Ausgabe erscheint der Schräg- 
strich natürlich nicht. 


1.3 Erstes Kennenlernen von Operationen - 
Wir bearbeiten Wörter und Listen 


Bereits im ersten Abschnitt haben wir Operationen kennengelernt, nämlich 
Rechenoperationen. Addition, Subtraktion, Multiplikation und Division 
sind Operationen mit Zahlen. Erinnern wir uns auch, daß Operationen ein 
Ergebnis liefern und dieses Ergebnis vom Computer weiterverarbeitet 
werden kann. Wir haben das Ergebnis der Operation durch den Befehl 
PRINT ausdrucken lassen. 

Die folgenden Beispiele zeigen vier Operationen auf Wörter und Listen, 
deren Ergebnis durch den Druckbefehl ausgegeben wird. 

Betrachten wir diese Beispiele etwas genauer. 
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FIRST O'LOGO 
FIRST EIA BI CC] 
EUTFIRST 7 'LOGO 
EFF CA EB ZEH]I 


Er [E[CA E]I OCZEH] 


COUNT EA RB ZEH] 


EMFTYP 0] 


Die Operation FIRST liefert jeweils das erste Element seiner Eingabe: 
den ersten Buchstaben eines Wortes oder das erste Element einer Liste. 
Die Operation BUTFIRST (Kurzform BF) liefert von der Eingabe alles 
ohne das erste Element. Die Operation COUNT zählt die Elemente einer 
Liste und liefert als Ergebnis eine Zahl. Die Operation EMPTYP unter- 
sucht seine Eingabe, ob sie eine leere Liste oder ein leeres Wort ist, und 
liefert als Ergebnis entweder TRUE (wahr) oder FALSE (falsch). 

Untersuchen wir jetzt mit FIRST, BF und COUNT jeweils eine einele- 
mentige Liste und ein Wort aus einem einzigen Zeichen. FIRST liefert als 
Ergebnis jeweils den Buchstaben oder den Inhalt der Liste. BUTFIRST 
führt zum leeren Wort oder zur leeren Menge. COUNT liefert bei der 
einelementigen Liste die Zahl 1. Doch wird ein Wort als Eingabe für 
COUNT verwendet, kommt die Fehlermeldung «COUNT DOESN’T LI- 
KE...AS INPUT». Die Fehlermeldung besagt, daß für die Operation 
COUNT die Eingabe... unzulässig ist. 

Untersuchen wir die vier Operationen auch noch auf ihr Verhalten bei 
leeren Wörtern und Listen. In allen Fällen wird «gemeckert»; das heißt, die 
Eingaben sind unzulässig. Logo wäre ja ein Zauberer, wenn das erste 
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Element von Nichts (leere Liste) etwas Konkretes wäre. Doch die Opera- 
tion COUNT mit einer leeren Liste liefert die Zahl 0; das heißt, diese Liste 
enthält keine Elemente. 

Bisher haben wir das Ergebnis einer Operation sofort ausdrucken lassen. 
Doch wie gesagt, kann das Ergebnis einer Operation selbst zur Eingabe 
einer weiteren Operation werden usw. Wir können also, solange es sinnvoll 
ist, beliebig viele Operationen miteinander verketten. Die folgenden Bei- 
spiele verdeutlichen es: 


?PR EF EF "LOGO 

?PFR O FIRST EF EF "LOGO 

PR EMPFTYF FIRST EF BF /'L_[06G0 

FR OEF EF CA BR CZEH]I] 

FR OFIRST BFOCEFOCCA CE CZEHI1JI 
?”PROFIRST FIRST EFF OCErFOCCA EB [CZEH]I]1 
?FR O ERF FIRST BF Er CA EB UCZEH]I] 
?”FR BF OFIRST FIRST EFF EFF CA KK CZEH]2] 
FR OCOLNT EF Er [A EB CZEH1I]I 

TFR OEF EMFTYF [] 

FR O FIRST EF EFF OCEMPTYP [6] 


?FROEF EMPTYPF COUNT [Aa EB ZEH] 


Dieses Aneinanderreihen von Operationen ist anfangs schon verwirrend. 
Man muß sich einmal damit genau auseinandersetzen und sich verdeutli- 
chen, daß Operationen als Eingaben die gelieferten Ergebnisse anderer 
Operationen haben können. 

Anfänglich kann man sich einfach helfen. Jede Operation wird als ein 
Kästchen dargestellt. Das Kästchen hat eine (oder mehrere) Eingaben und 
liefert als Ausgabe sein Ergebnis ab. Das Ergebnis wird zur Eingabe des 
nachfolgenden Kästchens. 
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[A B ZEH] 


3 
EMPTYP 


"FALSE 
BUTFIRST 


"ALSE 


> gedruckt wird die Eingabe von PRINT: ”ALSE 


Mit dieser Darstellung könnte man meinen, daß so eine Logozeile mit 
verketteten Operationen von rechts nach links gelesen werden müßte. Wir 
sollten trotzdem bei unserer alten Gewohnheit bleiben und Zeilen von links 
nach rechts lesen. In unserem Beispiel heißt das, daß alles rechts von dem 
Befehl PRINT seine Eingabe ist. Die Eingabe vom PRINT-Befehl ist die 
Operation BUTFIRST von irgend etwas. Ja, und das Irgendetwas ist die 
Operation EMPTYP mit der Eingabe COUNT [A B [ZEH]]. 

Untersuchen wir jetzt noch einmal aus den obigen Beispielen: 


PRINT BF BF [A B [ZEH]] 
PR FIRST BF BF [A B [ZEH]] 
PR FIRST FIRST BF BF [A B [ZEH]] 


Alle drei Logozeilen liefern uns irgendein ZEH. In der ersten Zeile 
werden aus der dreielementigen Liste die ersten beiden Elemente entfernt. 
Übrig bleibt eine Liste mit einem Element, nämlich [[ZEH]]. 

In der zweiten Logozeile wird mit FIRST das erste Element der Liste 
ermittelt, nämlich [ZEH]. 

In der dritten Logozeile ermittelt das zusätzliche FIRST das erste Ele- 
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ment der ihm eingegebenen Liste, nämlich das Wort ”ZEH. Erinnern wir 
uns an Abschnitt 1.2. Von Listen werden beim Ausdrucken die beiden 
äußersten Klammern nicht mitgedruckt und bei Wörtern nicht die Anfüh- 
rungsstriche. 


1.4 Vertippen ist menschlich - Fehler verbessern 


Mit Sicherheit wird jeder von uns bereits mehr als einen Tippfehler gemacht 
haben. Nach dem Drücken der RETURN-Taste wird es dann wohl jeweils 
eine Fehlermeldung gegeben haben. Die gewünschte Wirkung ist natürlich 
nicht eingetreten. Wir müßten also die ganze Zeile neu eintippen. Doch es 
gibt eine Reihe von Kontrolltasten, die uns helfen könnten, wenn wir sie 
nur kennen würden. Wir sollten uns gleich unseren Merkzettel bereitlegen 
und diese Kleinigkeiten notieren. Der Zettel sollte immer in der Nähe 
unseres Computers liegen, um wichtige Kleinigkeiten sofort im Zugriff zu 
haben. Tippen wir doch einmal folgende fehlerhafte Zeile ein: 


?PRINT BFBF "GESTERN 
I DON’T KNOW HOW TO BFBF 


Der Computer meckert. Natürlich kennt er kein Programm mit Namen 
BFBF. Wir haben das Leerzeichen vergessen. Wir müssen aber nicht die 
Zeile neu eingeben, obwohl die RETURN-Taste gedrückt worden ist. 
Drücken wir CTRL-Y (die CTRL-Taste gedrückt halten und dann die Y- 
Taste drücken). Die fehlerhafte Eingabezeile erscheint. Drücken wir RE- 
TURN. Und noch einmal CTRL-Y. Gar nicht schlecht, dieses CTRL-Y, das 
die letzte Anweisungszeile aus dem Eingabespeicher zurückholt. 

Beschäftigen wir uns jetzt mit CTRL-B und der >-Taste. Genau, mit 
CTRL-B können wir zeichenweise die Zeile bis zum Zeilenanfang zurück- 
wandern. Mit der >-Taste wandern wir zeichenweise nach rechts, sofern 
noch Zeichen in der Eingabezeile stehen. Wandern wir noch einmal mit 
CTRL-B an den Zeilenanfang zurück. Mit CTRL-E können wir direkt an 
das Zeilenende springen und uns das mehrfache Drücken der —-Taste 
ersparen, wenn wir die Eingabezeile sofort mit RETURN hätten beenden 
wollen. Mit CTRL-A springen wir direkt an den Zeilenanfang. 

Wir können jetzt den Cursor an beliebigen Stellen der Eingabezeile 
positionieren. Doch wie fügen wir ein Zeichen ein? Wandern wir mit dem 
Cursor zurück und setzen wir ihn genau über das zweite B von BFBEF. Jetzt 
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die Leertaste drücken. Fügen wir zum Üben gleich noch das Wort HEUTE 
nach der Silbe GE im Wort GESTERN ein. Haben wir alles richtig 
gemacht, so blinkt der Cursor genau über dem Buchstaben S. Drücken wir 
ein paarmal die <—--Taste. HEUTE ist gelöscht worden. 

Notieren wir uns am besten diese Kontrolltasten zum bequemen Verbes- 
sern von Tippfehlern. 


1.5 Unterschiedlich sind die Druckbefehle 
TYPE und PRINT 


In einer Eingabezeile können in Logo mehrere Befehle nebeneinander 
stehen. Das wollen wir nutzen, um den Unterschied zwischen TYPE und 
PRINT zu demonstrieren. 


> 
> 

> 

7-FR BF “ER PR "RICH PR "TIG 
R 

RICH 


TIG 
> 


» 


> 
TYPE EF "ER TYPE "RICH TYPE 


"TIG 
RRICHTIG? 

Die erste Eingabezeile mit den drei PRINT-Befehlen zeigt, daß nach 
Ausführung des Druckvorgangs in der Folgezeile mit dem Zeilenanfang 
fortgefahren wird. Ein Drucker wird also veranlaßt, eine Zeilenschaltung 
zu machen und den Druckkopf ganz nach links zu bewegen. Beim Bild- 
schirm wird entsprechend der Cursor eine Zeile tiefer an den Anfang 
gesetzt. Dies sieht man auch deutlich am Fragezeichen, das nach dem 
Drucken von ”TIG eine Zeile tiefer links erscheint. Das Beispiel mit TYPE 
zeigt, daß der Cursor oder Druckkopf nach dem Druckvorgang neben dem 
letzten ausgegebenen Buchstaben stehenbleibt. 
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> 
ws 
> 
> 


7T’< TYPE "A "B „CC 1 z2 > PR 
"Hera TTFE "Hu 

ABCI12HA 

HU? 


Die Beispiele mit den runden Klammern zeigen, daß auf diese Weise 
PRINT und TYPE mehrere Eingaben haben können. PRINT macht dabei 
zwischen seinen Eingaben beim Ausgeben ein Leerzeichen. TYPE zieht 
alle Wörter bei der Ausgabe vom Erscheinungsbild her zusammen. 


1.6 Immer wieder Guten Tag mit dem 
REPEAT-Befehl 


REPEAT 4 [PR "GUTEN PR "TAG PR "] 
GUTEN 
TAG 


GUTEN 
TAG 


bUTEN 
TAG 


GUTEN 
TAG 


Mit dem REPEAT-Befehl können wir unseren Personalcomputer so richtig 
rund laufen lassen. Die bisher vorgestellten Druckbefehle haben im Nor- 
malfall eine Eingabe. Der REPEAT-Befehl verlangt genau zwei Eingaben: 
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Als erstes die Anzahl der Wiederholungen und anschließend eine Liste, die 
irgendwelche Anweisungen enthalten kann. Zwischen der Zahl und der 
Liste muß natürlich ein Leerzeichen als Trenner eingegeben werden. 


1.7 Zusammenfassung und Übungen 


Das erste Kapitel hat schon einen Großteil der Grammatik von Logo 
abgehandelt, und wir kennen bereits eine gute Handvoll Vokabeln aus dem 
Wortschatz von Logo. Stellen wir das Wichtigste zusammen: 


1. 


2. 


>» 


na 


a 


SQ 


Logo hat Befehle und Operationen, die ihrerseits die Objekte Wort 
und/oder Liste als Eingabe haben können. 

Ein Wort wird durch Anführungsstriche gekennzeichnet und besteht 
aus einem oder mehreren Zeichen. Ein Wort bildet also eine zusam- 
menhängende Zeichenkette aus Ziffern, Buchstaben und Sonderzei- 
chen. Der Sonderfall ist das leere Wort. Zahlen sind ebenfalls Wörter 
und können ohne Anführungsstriche eingegeben werden. 

Eine Liste (Satz) ist alles, was mit eckigen Klammern eingerahmt wird. 
Die Elemente der Liste (Satzteile) können Wörter und/oder weitere 
Listen sein. Der Sonderfall ist eine leere Liste. 


. Beim Ausdrucken von Wörtern und Listen werden die Anführungsstri- 


che und die beiden äußeren Klammern einer Liste nicht ausgedruckt. 
Innerhalb von Listen werden Wörter ohne Anführungsstriche eingege- 
ben. 


. Eine vollständige Anweisungszeile für Logo beginnt mit einem Befehl 


(z. B. PR, TYPE, REPEAT...) und seinen Eingaben (Wörter, Listen, 
Operationen). Eine Eingabezeile wird mit der RETURN-Taste abge- 
schlossen. 


. Das Leerzeichen ist ein Trennzeichen. Leerzeichen grenzen in den 


Eingabezeilen Befehle, Operationen, Wörter und Listen gegeneinander 
ab. Werden Leerzeichen vergessen, kann Logo die einzelnen Teile nicht 
mehr unterscheiden. Diese Trennzeichenfunktion haben noch einige 
andere Sonderzeichen (beispielsweise die Rechenzeichen +, —, * und 
/). Sollen Leerzeichen oder andere Zeichen mit Trennereigenschaft als 
Zeichen in Wörtern vorkommen, so muß bei der Eingabe vorher 
CTRL-Q eingegeben werden, damit für das nachfolgende Zeichen die 
Trennereigenschaft aufgehoben wird. 


. Mehrere Druckbefehle können in einer Eingabezeile nebeneinander 


eingegeben werden. 
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10. 


11. 


12. 
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. Die Druckbefehle PRINT und TYPE haben eine Eingabe oder beliebig 


viele Eingaben, wenn runde Klammern gesetzt werden. 


. Operationen können miteinander verkettet werden, indem als Eingabe 


der Operation die gelieferten Ergebnisse anderer Operationen stehen. 
Unzulässige Werte für Operationen, vergessene Leerzeichen oder An- 
führungsstriche und vergessene Druckbefehle führen zu den häufigsten 
Fehlermeldungen: 

«I DON’T KNOW HOW TO...» 

«I DON’T KNOW WHAT TO DO WITH...» 

«...DOESN’T LIKE... AS INPUT» 

REPEAT ist ein mächtiger Befehl. Die erste Eingabe ist eine Zahl, die 
zweite eine Liste mit Anweisungen. Die Anweisungen werden so oft 
wiederholt, wie es die eingegebene Zahl vorschreibt. 

Mit Kontrolltasten lassen sich beliebige Buchstaben in Eingabezeilen 
ansteuern. Zeichen können gelöscht und neu eingefügt werden. 


Neue Logovokabeln 


1. 


2. 
3. 


PRINT COUNT 
PR EMPTYP 
+ TYPE 
ie (PRINT ) 
* (TYPE ) 
/ REPEAT 
> CTRL-A 
< CTRL-B 
= CTRL-E 
CTRL-Q CTRL-Y 
FIRST —-Taste 
BUTFIRST <-Taste 
BF 

Aufgaben 


Gib eine vierteilige Liste ein, die aus zwei Wörtern, einer leeren Liste 
und einer Liste mit drei Wörtern besteht. 

Überprüfe die Aufgabe 1 durch Voranstellen der Operation COUNT. 
Lasse vom Wort "COMPUTER das fünfte Zeichen ausdrucken. 


> 


191 


[eo] 


\o 
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. Gib ein Wort ein, das aus zehn Sonderzeichen besteht (Blanks, runden 


und eckigen Klammern, Rechenzeichen). 


. Suche aus dem Anhang drei weitere Operationen für Wörter und Listen 


heraus und teste sie. 


. Erzeuge willkürlich durch falsche oder unzulässige Eingaben die nun- 


mehr bekannten drei Fehlermeldungen. 


. Gib eine Zeile ein, die aus mehreren PRINT- und TYPE-Befehlen 


besteht. Sage vor dem Drücken der RETURN-Taste das Ergebnis vor- 
aus. 


. Was druckt PRINT (COUNT [[1 2 3] [] [ICH DU]])* (COUNT [A B 


ZEH])? 


. Die Anweisung gemäß Aufgabe 8 soll dreimal nacheinander ausgeführt 


werden. 


2 
Einfache Druckprogramme 


2.1 Ein kleiner Vers 


Im ersten Kapitel haben wir Logovokabeln und deren Zusammensetzung zu 
Anweisungen kennengelernt. Jedesmal, wenn wir mit der RETURN-Taste 
dann eine Eingabezeile beendet hatten, ging diese Zeile (und natürlich auch 
die vorangegangenen Zeilen) verloren, das heißt, um eine der Zeilen erneut 
ablaufen zu lassen, müßten wir sie neu eintippen. Mit den beiden neuen 
Logovokabeln TO und END können wir beliebig viele Anweisungszeilen zu 
einem Programm zusammenfassen. Dieses Programm kann dann immer 


? 

2 

TO VERS 

PRINT [DIE DONAU IST SO SCHOEN] 
PRINT [DRUM WOLLEN WIR SIE SEH’N] 


END 
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wieder nach Belieben aufgerufen werden, und die einzelnen Anweisungs- 
zeilen werden ausgeführt. j 
Auf dem Bildschirm haben wir ein kleines Druckprogramm abgebildet. 

Der Inhalt besteht aus PRINT-Befehlen. Um das Programm ablaufen zu 
lassen, brauchen wir nur den Namen des Programms einzutippen und die 
RETURN-Taste zu drücken. 

? 

? 

? 

?VERS 


DIE DONAU IST SO SCHOEN 
DRUM WOLLEN WIR SIE SEH’N 
? 


Solche vom Benutzer selbstdefinierten Funktionen (Programme) werden 
genauso gehandhabt wie die Logosystemfunktionen (z. B. PRINT, TYPE, 
FIRST usw.). Beim Aufruf der Funktionen wird einfach der Name eingege- 
ben, ohne daß etwa ein Anführungszeichen vorangestellt wird. 

Wie definieren wir also eigene Programme? Zuerst müssen wir dem 
Computer mit TO signalisieren, daß ihm jetzt ein Programm mit allen 
Einzelheiten erklärt wird, und zwar so lange, bis wir ihm das END 
eintippen. 

? 

? 

?TO 

NOT ENOUGH INPUTS TO TO 
? 


Wir haben schon unseren ersten Fehler gemacht. Nach dem TO dürfen 
wir nicht gleich RETURN eingeben, sondern erst noch den von uns frei 
gewählten Namen unseres Programms. TO fordert das Logosystem auf zu 
lernen, was sich hinter dem Programmnamen an Anweisungen verbirgt. 


? 


?TO VERS 
> 


Jetzt haben wir’s richtig gemacht. Nach der Eingabe von TO, dem 
Programmnamen und RETURN wechselt das Promptzeichen. Statt ? er- 
scheint jetzt >. Das Logosystem befindet sich im lernfähigen Zustand, dem 
sogenannten Ediermodus. Jetzt geben wir zeilenweise das Gewünschte ein. 
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© 

?TO VERS 

>PRINT [DIE DONAU IST SO SCHOEN) 
>PRINT [DRUM WOLLEN WIR SIE SEH’N] 
> 


Der Definitionsvorgang muß mit END abgeschlossen werden. Logo 
quittiert uns dann, daß ihm das Programm VERS erklärt worden ist. 


? 

?TO VERS 

>PRINT [DIE DONAU 1ST SO SCHOEN] 
>PRINT EDRUM WOLLEN WIR SIE SEH’N] 
>END 

VERS DEFINED 

? 


? 


Haben wir keine Tippfehler gemacht, wird nach dem Programmaufruf 
(Eintippen des Namens und Drücken der RETURN-Taste) unser erstes 
kleines Druckprogramm ablaufen. 

Wer sich, zur Freude des Tippfehlerteufels, vertan hat, sollte notgedrun- 
gen den Abschnitt 2.5 durcharbeiten und lernen, nachträglich Fehler in 
Programmen zu korrigieren. Vorbei kommt daran keiner. 


2.2 Unsere Anschrift 


Wir haben jetzt die Möglichkeit, beliebige Druckprogramme zu entwerfen. 
Definieren wir eine Funktion, die unsere Adresse ausdruckt. Am Anfang 
und Ende des Druckvorgangs soll jeweils eine Leerzeile ausgegeben wer- 
den. 


TO ADRESSE 

PR L[] 

PR LIGNATZ KNAATZ] 
PR [BIEBERER WEG 32] 
PR [6050 OFFENBACH] 
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VID 


?ADRESSE ADRESSE ADRESSE 


Um unser kleines Anschriftenprogramm zu testen, geben wir gleich 
einmal die folgende Anweisungszeile ein und sehen, was passiert. 


IGNATZ KNAATZ 
BIEBERER WEG 32 
6050 OFFENBACH 


IGNATZ KNAATZ 
BIEBERER WEG 32 
4050 OFFENBACH 


IGNATZ KNAATZ 
BIEBERER WEG 32 
s050 OFFENBACH 


2.3 Geometrische Figuren und Druckbilder 


Genauso wie die beiden vorigen Programme lassen sich natürlich ebenso 
Dreiecke, Quadrate, Rechtecke, Figuren, Bilder... zeilenweise definieren. 
Bevor wir die nachfolgenden Programme eintippen, unbedingt den Hin- 
weis auf Seite 34 beachten. 
Lassen wir jetzt mal mehrere solcher Druckprogramme nacheinander 
ablaufen: 


32 
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? 
? 
? 
?PYRAMIDE QUADRAT KIRCHE TANNE FINGER PLAYBOY 


3 
333 
33333 
3333333 


XXXX 
XXXX 


# 
# 
# # # 
# 
2:22 :2:2.5:2 175 


299 
223933 2 
229993 3 
233339 

22939 

2393 
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Die zugehörigen Druckprogramme lassen wir uns mit dem Befehl PO- 


ALL (Print Out ALL) auflisten. 


?POALL 

TO PLAYBOY 
PR [I 

PR L x] 
PR [X xx] 
PR [XXX xx] 
PR L XXX xx] 
PR L  XXXXX] 
PR L XXXXXX] 
PR [XXXaXXX] 
PR L XXXXXX] 
PR L  XXXxx] 
PR L 22x22) 
END 

TO FINGER 

PR " 

PR" 93 

PR" 9 

PR" 9 

PR" 93 

PR " 339 

PR "29993 9 
PR "399399 93 
PR "9299933 
PR " 9399 

PR " 393 

END 

TO KIRCHE 

PR " 

PR" # 

PR" HH 

PR "# ### 
PRr'R OH 8 
Pr "HR 8 
PRr"HO HR 8 
PR "HHHBHhhh 
END 

TO TANNE 

PR " 

PR " # 
PR" #8 
PR" # 

PR "HHHHH 
PR" 1 

PR" I 
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TO QUADRAT 


PR "XXXX 
PR "XXXX 
PR "XXXX 
PR "XXXX 


TO PYRAMIDE 


PR " 3 

PR " 333 
PR " 33333 
PR "3333333 
END 


In den meisten Programmen benutzen wir auch das Leerzeichen. Damit 
es nicht als Trenner wirkt, müssen wir jedesmal mit CTRL-Q diese 
Trennereigenschaften aufheben (vgl. auch Abschnitt 1.2). Am besten wird 
dies beim Edieren selbst deutlich. Beim Ausdrucken mit PO werden die 
Schrägstriche nicht mit abgebildet. 


? 

? 

?TO PYRAMIDE 
PR "N WIN 
>PR "N N 333 
>PR "N 33333 
>PR "3333333 
>END 
PYRAMIDE DEFINED 
> 

> 


2.4 Und alles läßt sich mehrfach wiederholen 


Erinnern wir uns an Abschnitt 1.5 und den vorgestellten REPEAT-Befehl. 
Beispielsweise könnten wir uns beliebig viele Selbstklebeetiketten ausdruk- 
ken. Wir müßten nur ein entsprechendes Endlosformular in den Drucker 
einspannen und den Drucker dazuschalten. Die Anweisungszeile für bei- 
spielsweise drei Etiketten lautet: 


? 
? 
REPEAT 3 [ADRESSE] 


IGNATZ KNAATZ 
BIEBERER WEG 32 
6050 OFFENBACH 
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IGNATZ KNAATZ 
BIEBERER WEG 32 
050 OFFENBACH 


IGNATZ KNAATZ 
BIEBERER WEG 32 
4050 OFFENBACH 


Wir könnten auch eine beliebige Figuren- und Bildermischung beliebig 
oft ausdrucken. 


? 
Ku 
REPEAT 4 [TANNE HAND KIRCHE] 


2.5 Korrekturen an Programmen mit dem Logo-Editor 


In Kapitel 1 haben wir bereits eine Handvoll Korrekturtasten kennenge- 
lernt. Doch diese arbeiten nur innerhalb einer noch nicht mit RETURN 
abgeschlossenen Eingabezeile. Wie kommen wir also an eine beliebige 


TO VERS 

PRINT EDIE DONAU IST SO SCHOEN) 
PRINT [DRUM WLLEN WIEER SIE SEH’N] 
END 


LOGO EDITOR 
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Zeile eines bereits definierten Programms heran, das leider Fehler hat? 
Hierzu muß der Befehl EDIT (abgekürzt ED) verwendet werden. Nach 
dem Befehl EDIT muß der gewünschte Programmname mit Anführungs- 
strichen eingegeben werden, dann die Eingabezeile mit RETURN been- 
den. 

Der Bildschirm wird gelöscht, und der Logo-Editor ist aktiviert. Unsere 
zu ändernde Funktion wird komplett auf dem Bildschirm gezeigt. 

Wir müssen jetzt nur noch einige Steuertasten in Erfahrung bringen, um 
mit dem Blinkzeichen zu beliebigen Zeilen wandern zu können und dann 
mit den bereits bekannten Korrekturtasten zu ändern oder auch Neues 
einzufügen. Im Prinzip reichen zwei Steuertasten. Mit der —>-Taste - 
einfach dauernd gedrückt halten - können wir von links oben bis zum END 
durchwandern. Die ganze Tour zurück geht mit CTRL-B. Hätten wir statt 
-dessen-die «Taste benutzt, hätten wir den ganzen Text gelöscht. Ändern 
wir jetzt unsere Fehler. Wandern wir mit dem Cursor an die fehlerhaften 
Stellen und machen die Korrekturen. Mit CTRL-C verlassen wir den Logo- 
Editor. Kontrollieren wir vielleicht doch noch einmal das Programm und 
lassen es uns auf dem Bildschirm mit dem Befehl PO (für Print Out) 
auflisten. 


2 
? 

?PO "VERS 

TO VERS 

PRINT L[LDIE DONAU 1ST SO SCHOEN] 
PRINT EDRUM WOLLEN WIR SIE SEH’N]I 
END 


Mit ETRL-N können wir beim Logo-Editor immer die nächstfolgende 
Zeile in der gleichen Schreibstelle des Cursors ansteuern. Zeilenweises 
Zurückgehen wird mit CTRL-P ermöglicht. Mit CTRL-E springt man 
jeweils an das Zeilenende. Weitere Edierbefehle sollten in den Handbü- 
chern nachgelesen werden. 


—_ 


DD 


un 


a 


SI 
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2.6 Zusammenfassung und Übungen 


. In Logo können selbstdefinierte Funktionen (Programme) einen beliebi- 


gen Namen in Form eines Logowortes erhalten. 


. Dem Logosystem werden Arbeitsaufträge (Programme) «beigebracht», 


indem der Editormodus aktiviert wird. 


. Der Editormodus wird durch Eingeben von TO und dem nachfolgenden 


Programmnamen eingeschaltet. 
Im Editormodus wechselt das Promptzeichen von ? nach >. 


. Eine benutzerdefinierte Funktion kann beliebig viele Anweisungszeilen 


haben. Jede Anweisungszeile wird mit RETURN beendet. Ein Edier- 
vorgang wird mit END abgeschlossen. Das alte Promptzeichen erscheint 
wieder. 


. Nach dem Beenden des Ediervorgangs quittiert Logo, daß es unter dem 


Namen ... gerade eine Benutzerfunktion «gelernt» hat. 


. Benutzerfunktionen werden zur Ausführung gebracht, indem der Name 


der Benutzerfunktion eingegeben wird (ohne Anführungszeichen, ge- 
nauso wie Logofunktionen). 


Neue Logovokabeln: 


-_ 


[387 


TO 
END 
PO 
POALL 
EDIT 
ED 
CTRL-C 
CTRL-N 
CTRL-P 


Aufgaben 


. Erstelle ein Druckprogramm, das einen beliebigen Text ausdruckt (Stro- 


phe eines Gedichts, Lied, Kommentar zu...). 


. Lasse den Computer in einem Adreßprogramm die eigene Anschrift 


zuzüglich der Telefonnummer ausgeben. 


. Erstelle einen viereckigen Rahmen aus lauter X. 
. Lasse in vergrößerter Form das Wort ok ausgeben. 


3 
Programme rufen Programme 


3.1 Ein Gedicht mit Versen 


Wir wollen im folgenden die Möglichkeit kennenlernen, den Ablauf mehre- 
rer Druckprogramme von einem einzigen Leitprogramm aus zu bestimmen. 
Angenommen, wir haben drei Strophen eines Gedichts als Programme 
unter den Namen VERS, VERS3 und VERS4 formuliert, so müßten wir im 
einfachsten Falle in einer Zeile diese Namen und zum Schluß noch RE- 
TURN eintippen, um alle drei Druckprogramme nacheinander zur Ausfüh- 
rung zu bringen. 

Geschickter ist es da natürlich, auch für diese Eingabezeile ein kleines 
Programm zu definieren. Dieses übergeordnete Leitprogramm könnte wie 
folgt aussehen: 


TO GEDICHT 
SCHIRMLOESCHEN 
VERS 

STROPHE 

ZIEGE 

VERS4 

VERS3 

END 


Die erste Anweisungszeile von GEDICHT beinhaltet SCHIRMLOE- 
SCHEN. Unser selbstdefinierter Befehl soll den Bildschirm löschen. Sehen 
wir uns diesen Befehl an, indem wir ihn mit dem Befehl PO (für Print Out) 
ausdrucken lassen. Mit PO kann im Gegensatz zu POALL ein einziges 
gewünschtes Programm aufgelistet werden. 


?PO "SCHIRMLOESCHEN 
TO SCHIRMLOESCHEN 
CLEARTEXT 

END 
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In unserem Leitprogramm GEDICHT hätten wir natürlich auch direkt 
den Logobefehl CLEARTEXT eingeben können. Doch SCHIRMLOE- 
SCHEN versteht man besser, und es ist gleich ein gutes Beispiel, daß man 
bei Bildschirmausgaben sinnvollerweise zuerst den Schirm löscht. Die 
nächsten Anweisungszeilen von GEDICHT rufen jetzt jeweils ein Druck- 
programm auf. Ist das aufgerufene Programm STROPHE vollständig aus- 
geführt worden, so kommt die nachfolgende Anweisungszeile mit dem 
Programmaufruf ZIEGE zur Ausführung. Damit beim Ablauf vom Gedicht 
die einzelnen Verse besser zu erkennen sind, ist jeweils am Ende jedes 
Druckprogramms noch eine Leerzeile vorgesehen. 


? 
?PO "VERS3 
TO VERS3 


PR [DER DIETMAR IST SO AETZEND) 
PR LUND DAZU NOCH FETZEND.] 

PR L[) 

END 


Lassen wir nun endlich unser Gedicht zum Zuge kommen und rufen das 
Programm GEDICHT auf: 


? 

4 

?GEDICHT 

DIE DONAU IST SO SCHOEN, 
DRUM WOLLEN WIR SIE SEH’N. 


FRUEFE, BEVOR DU DICH EWIG EINDEST, 
OB DU WAS BESSERES FINDEST. 


ES WAR EINMAL EINE ZIEGE, 


DIE WIEGTE SICH GERN IN DER WIEGE. 
UND JEDESMAL WENN ES KRACHTE, 


SCHRIE SIE VOR FREUDE UND LACHTE. 


SO WOLLEN WIR NUN HIN, 
DANN HAT ALLES WIEDER SINN. 


DER DIETMAR IST SO AETZEND 
UND DAZU NOCH FETZEND. 


Abschließend wollen wir noch den nützlichen Befehl POTS (Print Out 
Titles) anführen. Tippen wir einmal POTS und dann RETURN als 
Abschluß der Anweisungszeile: Alle Namen der im Arbeitsspeicher vor- 
handenen benutzerdefinierten Funktionen (Programme) werden unterein- 
ander angeführt. 
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? 

? 

?POTS 

TO VERS3 
TO VERS4 
TO ZIEGE 
TO STROPHE 
TO VERS 
TO GEDICHT 


TO SCHIRMLOESCHEN 
? 


3.2 Tausendmal unsere Anschrift 


In Abschnitt 2.2 haben wir unsere Anschrift als Druckprogramm ADRES- 
SE definiert. Jetzt wollen wir ein Programm definieren, in dem das schon 
erstellte Anschriftenprogramm ADRESSE tausendmal aufgerufen wird: 


TO ETIKETTEN 
REPEAT 1000 LADRESSE] 
END 


ETIKETTEN besteht nur aus einer Anweisungszeile unter Benutzung 
des schon bekannten Logobefehls REPEAT. Testen wir doch gleich das 
neue Programm. Ja, und es läuft und läuft. Wie lange dauern denn 1000 
auszudruckende Anschriften? Wer nicht bis zum Ende abwarten will, 
müßte jetzt den Netzstecker ziehen oder eleganter CTRL-G (CTRL-Taste 
gedrückt halten und dann die G-Taste drücken) eintippen. 


? 
> 
?ETIKETTEN 


IGNATZ KNAATZ 
BIEBERER WEG 
6050 OFFENBACH 


IGNATZ KNAATZ 
BIEBERER WEG 
%050 OFFENBACH 


IGNATZ KNAATZ 
BIEBERER STOPPED! IN ADRESSE: 
PR [BIEBERER WEG] 
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Sollte sich irgendwann einmal das Logosystem im Kreise drehen oder 
wollen wir einen Programmablauf abbrechen, so geschieht dies mit CTRL- 
G. Nach dem Programmabbruch wird auch noch mitgeteilt, welche Anwei- 
sungszeile in welchem Programm gerade in Ausführung war. 


3.3 Bildkarussell 


Ähnlich wie in GEDICHT könnten wir den Ablauf von Ausdrucken 
geometrischer Figuren und Bilder aus Abschnitt 2.3 steuern. Lernen wir die 
Möglichkeit kennen, daß sich Programme auch selbst aufrufen können. 


TO BILDKARUSSEL 
TANNE 

FINGER 

PYRAMIDE 

KIRCHE 

PLAYBOY 
BILDKARUSSEL 
END 


Starten wir BILDKARUSSEL, werden TANNE, FINGER, PYRAMI- 
DE, KIRCHE, PLAYBOY und wieder TANNE, FINGER, ... und... 
und immer wieder TANNE, FINGER, ... ausgedruckt. Den gleichen 
Effekt von ETIKETTEN hätte man dann auch einfacher haben können: 


TO ADRESSE 

PR L[] 

PR LIGNATZ KNAATZ]I 
PR L[BIEBERER WEG] 
PR L6050 OFFENBACH] 


ADRESSE 
END 


Hier kann nur noch CTRL-G helfen und Schluß machen. 
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- 


DD 


w 


4. 


3. 


3.4 Zusammenfassung und Übungen 


. In Programmen können beliebige Funktionen aufgerufen werden, das 


heißt Logofunktionen und Benutzerfunktionen. 


. Benutzerfunktionen werden innerhalb eines Programms aufgerufen, in- 


dem in der entsprechenden Anweisungszeile der Name der Benutzer- 
funktion angegeben wird (ohne das TO!). 


. In Verbindung mit dem REPEAT-Befehl können wir jedes Programm 


eine vorgegebene Anzahl mal wiederholen. 

Benutzerfunktionen können sich auch selber aufrufen. Das führt zu einer 
unendlichen Wiederholung des Ablaufs dieser Funktion. 

Ein Programmdreher wird mit CTRL-G angehalten. 


Neue Logovokabeln: 


Do 


w 


PO 

POALL 
CLEARTEXT 
CTRL-G 
POTS 


Aufgaben 


. Erstelle ein eigenes Gedicht mit mehreren Versen. 
. Erstelle einen rechteckigen Rahmen. Für die jeweiligen Druckzeilen 


sollen eigene kleine Benutzerfunktionen erstellt werden, die jeweils nur 
eine Druckzeile ausführen. Mit dem REPEAT-Befehl sollen Mehrfach- 
wiederholungen gleicher Zeilen gesteuert werden. 


. Erstelle ein Adreßprogramm mit eigenen Daten, das sich selbst aufruft. 


4 
Programme mit Eingabewerten 


4.1 Guten Tag, Herr Nachbar 


GUTEN TAG 

EIN SCHOENER TAG HEUTE 
JA, WIRKLICH 

WEITERHIN EINEN GUTEN TAG 
AUF WIEDERSEHEN 


Wir kennen solche Begrüßungen oder Kurzgespräche. Täglich finden sie 
vielfach statt. Nicht gleich, immer irgendwie variiert. Wir wollen ein 
entsprechendes Programm erstellen, das die erste und letzte Zeile nach 
unseren Wünschen variiert. Als Programmnamen wählen wir das Wort 
Begrüßung. Dieses Druckprogramm besteht aus vier Druckanweisungen, 
von denen zwei Anweisungen variable Sätze drucken sollen. Das obige 
unveränderte Druckprogramm sieht wie folgt aus: 

TO BEGRUESSUNG 

PR EGIITEN TAG] 

PR LEIN SCHOENER TAG HEUTE] 

PR [LJA, WIRKLICH]I 


PR [WEITERHIN EINEN GUTEN TAG] 
PR [AUF WIEDERSEHEN] 


Wie müssen wir es ändern, damit die erste und vierte Druckanweisung 
veränderbar werden? Logo liefert uns eine elegante Möglichkeit. Sehen wir 
uns erst einmal das geänderte Programm an. 


TO BEGRUESSUNG :GRUSS :ABSCHIED 
PR :GRUSS 

PR LEIN SCHOENER TAG HEUTE) 

PR LJA, WIRKLICH) 

< PR [WEITERHIN EINEN] :GRUSS >) 
PR :ABSCHIED 

END 


2 
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Beim Festlegen des Funktionsnamens werden einfach in derselben Einga- 
bezeile zusätzlich mögliche Bezeichnungen für Funktionseingaben aufge- 
zählt. Man könnte sich diese Bezeichnung als Container oder Transportbe- 
hälter vorstellen, die später erst mit aktuellen Inhalten gefüllt werden. Der 
Name eines solchen Containers (Parameter)* beginnt immer mit einem 
Doppelpunkt. Innerhalb der nachfolgenden Anweisungszeilen unseres Pro- 
grammes können die Parameter beliebig oft verwendet werden. Die Contai- 
ner innerhalb des Programms dürfen nicht mit einem einzigen Zeichen vom 
Aussehen in der Bezeichnung der obersten Zeile abweichen! 

Testen wir nunmehr BEGRUESSUNG und füllen die Container mit 
verschiedenen Inhalten: 


7? 

? 

?BEGRUESSUNG [GUTEN ABEND) [BIS BALD) 
GUTEN ABEND 

EIN SCHOENER TAG HEUTE 

JA, WIRKLICH 

WEITERHIN EINEN GUTEN ABEND 

BIS BALD 

? 

> 


?BEGRUESSUNG EGUTEN]I L[TSCHUESS] 
GUTEN 

EIN SCHOENER TAG HEUTE 

JA, WIRKLICH 

WEITERHIN EINEN GUTEN 

TSCHUESS 

7 

? 

?BEGRUESSUNG [GUTEN MORGEN] LUND GUTEN TAG] 
GUTEN MORGEN 

EIN SCHOENER TAG HEUTE 

JA, WIRKLICH 

WEITERHIN EINEN GUTEN MORGEN 


UND GUTEN TAG 
? 


* In der Informatik werden solche Einrichtungen zum Übergeben von Werten an Funktionen als 
Parameter bezeichnet. 
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4.2 Adressen für jeden 


Unser Adreßprogramm aus Abschnitt 2.2 könnten wir jetzt ändern. 


TO ADRESSE :NAME :PLZ :ORT :STRASSE 
PR [0 

PR :NAME 

PR :STRASSE 

< PR :PLZ :ORT > 

PR L[) 

END 


Jetzt ist ADRESSE für beliebige Anschriften verwendbar. 


? 
? 
?ADRESSE [KLAUS MAUSI "6070 LHAUSEN]I LWEGERICH 12) 


KLAUS MAUS 
WEGERICH 12 
6070 HAUSEN 


?ADRESSE [FRAU MEIER]I LHAUPTSTR.10) "2000 "HAMBURG 


FRAU MEIER 
HAMBURG 
HAUPTSTR.10 2000 


Bei der «Frau Meier» stimmt natürlich etwas nicht. Nicht der Computer 
spinnt, sondern wir haben einen Eingabefehler gemacht. Die vorgesehene 
logische Reihenfolge der Eingabedaten haben wir nicht eingehalten. In den 
Container für den Transport des Straßennamens ist der Ortsname eingege- 
ben worden, für die Postleitzahl die Straße und für die Ortsbezeichnung die 
Postleitzahl. Der Computer merkt so etwas nicht. Stur druckt er die Werte 
der Parameter gemäß Anweisung aus. Das nächste Beispiel zeigt, daß Logo 
ein guter Buchhalter ist und seinen Auftrag ADRESSE gut gelernt hat. Das 
Programm ADRESSE erwartet zwingend vier Eingaben. Wird davon nach 
unten abgewichen, gibt es einen entsprechenden Fehlerhinweis. 


?ADRESSE [GERD MEIER]I [1000 BERLIN]I [LBAHNSTR. 12) 
NOT ENOUGH INPUTS TO ADRESSE 


Weichen die Bezeichnungen der Variablen in Kopfzeile und Anweisungs- 
zeile voneinander ab, entsteht folgender Fehlerhinweis: 
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TO ADRESSE :NAME :PLZ :ORT :STRASSE 
PR [3 

PR :NAMEN 

PR :STRASSE 

< PR :PLZ :ORT >» 

PR [) 

END 


?ADRESSE [DIEDELICH]I [HAUPTSTR.10) 40564 "HEUSENSTAMN 


NAMEN HAS NO VALUE IN ADRESSE: 
PR :NAMEN 


4.3 Nicht nur die Donau ist schön 


Das Beispiel VERS aus Abschnitt 2.1 könnte ähnlich umgeschrieben wer- 
den, um den jeweils gewünschten Flußnamen statt der Donau auszudruk- 
ken. Im folgenden geänderten VERS haben wir den PRINT-Befehl nicht in 
Klammern gesetzt. Die Eingabe für PRINT soll die für uns neue Logofunk- 
tion SENTENCE (Satz) und deren Eingaben sein. SENTENCE (abgekürzt 
SE) bildet aus seinen Eingaben einen Satz. Dieser Satz ist eine Liste. Bei 
mehr als zwei Eingaben für SENTENCE müssen runde Klammern gesetzt 
werden. Die Eingaben für SENTENCE können Wörter oder Listen (Sätze) 
sein. 


TO VERS :FLUSS 

PR < SENTENCE "DIE :FLUSS LIST SO SCHOEN] > 
PR “ SE EDRUM WOLLEN WIR DIE] :FLUSS [SEH’N] > 
END 


Probieren wir VERS aus und geben für die Programmvariable «Fluß» 
einmal das Wort ”MOSEL und dann den Satz [MOSEL AN DER SAAR] 
ein. Wir sehen, daß SENTENCE Wörter und/oder Listen als Eingaben 
verarbeitet. 


? 

? 

?VERS "MOSEL 

DIE MOSEL IST SO SCHOEN 

DRUM WOLLEN WIR DIE MOSEL SEH’N 

? 

2 

? 

?@VERS [MOSEL AN DER SAAR] 

DIE MOSEL AN DER SAAR 1ST SO SCHOEN 


DRUM WOLLEN WIR DIE MOSEL AN DER SAAR SEH’N 
? 
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4.4 Gebäude aus verschiedenen Steinen 


Abschließend wollen wir in Anlehnung an Abschnitt 2.3 die dortigen 
Beispiele so umgestalten, daß beim Programmaufruf jeweils noch der 
gewünschte Buchstabe oder Baustein angegeben werden muß. 

Das umdefinierte Programm KIRCHE lautet dann: 


?PO "KIRCHE 

TO KIRCHE :STEIN 

PR " 

PR <WORD " :STEIN) 

PR <WORD * ıSTEIN " ıSTEIN) 


PR <WORD :STEIN * :STEIN :STEIN :STEIN) 
PR <WORD :STEIN " :STEIN " :STEIN) 
PR (WORD :STEIN * STEIN " :STEIN) 
PR <WORD :STEIN * ıSTEIN " :STEIN) 


PR <WORD :STEIN :STEIN :STEIN :STEIN :ıSTEIN :STEIN 
STEIN :STEIN :STEIN) 


END 


Wir benutzen die Logofunktion WORD. Die Operation WORD hat zwei 
oder mehrere Eingaben. Bei mehr als zwei Eingaben müssen runde Klam- 
mern gesetzt werden. Die Eingaben für WORD dürfen nur Wörter sein. 
Der einzelne Buchstabe ist ebenfalls ein Wort. WORD macht aus seinen 
eingegebenen Wörtern eine einzige zusammenhängende Zeichenkette. Se- 
hen wir, was KIRCHE macht und wie WORD arbeitet. 
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? 
?KIRCHE °"$ 


% 
# 


$ s 
553334$4$ 


?KIRCHE "3 KIRCHE "4 


VOVVRRRRHH 


292 


a 

2 

a r) a 
a r) a 
22293293333 
44 


4 4 


4 
4 
4 4 4 
4 
444444444 


Natürlich können wir unsere Kirche besonders stabil bauen und die 
Mauer mit zwei Ziegelsteinen hochziehen. 


? 
?KIRCHE "## 


AH 
## #8 
a HRHHHH 
#H [2 ZU 2. 
## #H #4 
#H ## #H 
HHHHRHHHHHHHHHHHHH 


Das folgende Beispiel ist sicher übertrieben, zeigt aber, daß das Pro- 
gramm auch damit fertig wird, solange die Eingabe ein Wort ist. 
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?KIRCHE "ZIEGEL 


ZIEGEL 
ZIEGEL ZIEGEL 
ZIEGEL Z1EGELZIEGELZIEGEL 
ZIEGEL Z1IEGEL ZIEGEL 
Z1EGEL ZIEGEL ZIEGEL 
ZIEGEL ZIEGEL ZIEGEL 
ZIEGELZIEGELZIEGELZIEGELZIEGELZIEGELZIEGELZIEGELZIEGEL 


Geben wir für die Variable statt eines Wortes eine Liste ein, so erhalten 
wir den Fehlerkommentar und auch noch die Programmzeile ausgedruckt, 
in der unser Programm kläglich versagte. 


? 
? 
?KIRCHE [LZIEGEL) 


WORD DOESN’T LIKE [ZIEGELI AS INPUT IN KIRCHE: 
PR (WORD " : STEIN) 


An dieser Stelle sei noch einmal daran erinnert, daß Leerzeichen mit 
CTRL-Q eingegeben werden müssen. Die erste Druckzeile besteht aus zwei 
Leerzeichen und dem :STEIN. Eintippen müssen wir nach WORD die 
Anführungsstriche, CTRL-Q, Leerzeichen, CTRL-Q, Leerzeichen, jetzt 
das Leerzeichen als Trenner (!), dann :STEIN. 


4.5 Clubkarte für den KCTHS 


Schule ist meistens langweilig. Der letzte EDV-Kurs wollte nicht mehr an 
dem Adreßprogramm weitermachen, sondern unbedingt ein Programm für 
einen Mitgliedsausweis schreiben. Das Aussehen der Clubkarte wurde 
schnell als Entwurf an der Tafel skizziert. Man einigte sich über die Anzahl 
der Druckzeilen und wie viele Schreibstellen jede Druckzeilen haben sollte. 
Der Ausweis sollte einen Rahmen aus lauter X erhalten. Das Endprodukt 
soll gleich einmal gezeigt werden. 
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KXXKKKKKKKAKAKKKKKKAKKKKK 


x MITGLIEDSAUSWEIS x 
x x 
x K.C.T.H.S. x 
x x 
X HEINRICH WILHELM x 
x x 
x BERLINER STRASSE 132 X 
x x 
x 6050 OFFENBACH x 
x x 
x KOTZCLUBTHEODOR x 
XXKIKKIKKKKKKAKKKAÄKKKKKKKX 


T.H.S. soll Theodor-Heuss-Schule bedeuten. Und die Abkürzung K.C. 
beweist, wie beliebt diese Schule ist (siehe Ausweis unten). Ganz klar, das 
Programm hat drei Variable für Name, Straße und Ort. Und natürlich 
entpuppte sich der erste Programmtest als reines Versagen des Computers. 
Soviel Blödheit wollte man ihm eben nicht zutrauen. Vergessen wurden die 
Trennzeichen zwischen den einzelnen Elementen einer Anweisungszeile, 
und von CTRL-Q und seiner Bedeutung redete keiner mehr. Ja, und der 
Randausgleich wollte überhaupt nicht funktionieren. 


?AUSWEIS "GERHARD "SCHILLERSTR.10 "UNNA 
AXKKKKAKKIAKRRKRAKKKKKIKK 
MITGLIEDSAUSWEIS x 

x 


xx 


K.C.T.H.S. 
GERHARD X 
SCHILLERSTR.10 X 
UNNA X 


KOTZCLUBTHEODOR 


x 
x 
x 
x 
x 
x 
x 
x 
x 
AXXKKKKKAKKKKKKKRKKKKAÄKX 


x 
x 
x 
x 
x 
x 
x 


Um den Randausgleich zu erreichen, einigte man sich darauf, daß jedes 
Datum genau mit einer Länge von 20 Zeichen eingegeben werden muß. 
Der Programmtest zeigte dann, daß das Ausweisprogramm endlich klappte. 


Programme mit Eingabewerten 51 


?AUSWEIS "01234567890123456789 "01234567 

890123454789 "01234547890123455789 

IXXKKIKKIKKAKKAXKIKKAKKKX 

x MITGLIEDSAUSWEIS 
K.C.T.H.S. 


012345647890123454789 


01234547890123456789 


KOTZCLUBTHEODOR 
IXXKKKKKKKAKKRKKKARKKKAKK 


KKXKXXXXKKIXXX 


x 
x 
x 
x 
x 
x 01234547890123456789 
x 
x 
x 
x 
x 


?AUSWEIS "GERHARDN NN N 
N. *"SCHILLERSTR.10N NN 
NNININENIN NINE N NANIN 

AIXRKKKKKAIKRKKKAKKKAKKKKX. 

MITGLIEDSAUSWEIS 


/L/L/ 
+ /L/ 


K.C.T.H.S. 


GERHARD 


SCHILLERSTR.10 


UNNA 


XXXXKXXXXXXX 
XKXXKKXXXXXXX 


KOTZCLUBTHEODOR 
AXXKKKIKKIKKIKKKKKKAKKKKKX 


Abschließend erwärmte man sich für die Herstellung eines Clubkarten- 
vordrucks, der erst später vom Schriftführer des KCTHS für die Mitglieder 
ausgefüllt werden sollte. 


PAUSWEIS "nennen en nennen nenn "ernennen 
x 

x MITGLIEDSAUSWEIS x 
x x 
x K.C.T.H.S. x 
x x 
X rennen nennen ne X 
x x 
X ver eeeeneeeneenen en. X 
x x 
X veeereeeen nn nenne X 
x x 
x KOTZCLUBTHEODOR x 
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Natürlich benutzte man dann die REPEAT-Funktion, um zwanzig For- 
mulare als Edelkopie zu erzeugen. Abschließend folgt der Programmaus- 
druck. Das Leerzeichenproblem mit CTRL-Q und die Trennfunktion des 
Leerzeichens muß ja wohl nicht mehr erwähnt werden, oder? 


TO AUSWEIS :NAME :STR :ORT 
PR LXXXXXXXXXXXXXXXXKKKXKKXKX] 


PR [X MITGLIEDSAUSWEIS x] 
PR [X x) 
PR IX K.C.T.H.S. x] 
PR [X x] 
PR (WORD "X :NAME " X) 

PR [X x) 
PR (WORD "X :STR " X) 

PR [X x] 
PR <WORD "X ORT " X) 

PR [X x] 
PR [X KOTZCLUBTHEODOR x] 
PR LXXXXXXXXXXXKXXKXKKKKKKKKKX 
END 


4.6 Zusammenfassung und Übungen 


1. Druckprogramme und beliebige Funktionen können jeweils beliebig 
vorgegebene Daten verarbeiten, ohne daß das Programm geändert wer- 
den muß. Dies wird durch Funktionseingaben (Parameter, Variable) 
erreicht. 

2. Beim Programmstart werden nach dem Programmnamen eine oder 
mehrere Daten (Wörter oder Listen) eingegeben. Diese Daten werden 
zum Inhalt entsprechend vorgesehener Datenbehälter in der Programm- 
kopfzeile, die dann innerhalb der nachfolgenden Anweisungszeilen wie 
angegeben verarbeitet werden. 

3. Parameter sind mit Containern (Behältern) vergleichbar, die erst beim 
Programmaufruf mit einem aktuellen Inhalt gefüllt werden. Bei der 
Programmerstellung werden mit den Bezeichnungen für diese Container 
Logoanweisungen zusammengestellt. Solch ein Parameter wird in der 
Kopfzeile und den nachfolgenden Anweisungszeilen äußerlich identisch 
benutzt. Solch ein Parameter hat zuerst einen Doppelpunkt und unmit- 
telbar danach die Bezeichnung in Form einer beliebigen Zeichenkette. 

4. Nach dem Eingeben von TO und dem nachfolgenden Programmnamen 
(Funktionsnamen) können beliebig viele Parameter angegeben werden. 
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5. Wird beim Aufruf einer Funktion mit Parametern einer der Container 
nicht mit Inhalten gefüllt, so wird dieses Programm nicht ausgeführt, 
gefolgt vom Fehlerkommentar «.... NEEDS MORE INPUTS» (benötigt 
weitere Eingaben). 

6. Weichen die Containerbezeichnungen in Kopfzeile und Anweisungszeile 
voneinander ab, meldet Logo, daß ihm unter dieser Bezeichnung kein 
Inhalt vorliegt (...HAS NO VALUE). 


Neue Logo-Vokabeln: 


SENTENCE (SE) 
(SENTENCE...) 
(SE...) 
(WORD...) 


Aufgaben 


1. Erstelle ein Adreßschreibprogramm mit Namen ETIKETT, das neben 
der Anschrift noch eine Variable für die Telefonnummer und die Anzahl 
der zu wiederholenden Etiketten vorsieht. Benutze hierzu das geänderte 
Programm ADRESSE. Dieses Programm soll innerhalb von ETIKETT 
in Verbindung mit dem REPEAT-Befehl aufgerufen werden. 

2. Entwerfe einen standardisierten Kurzbrief, der beliebige Personen zu 
einer beliebigen Veranstaltung einlädt. Das Programm soll folgende 
Variable enthalten: Briefdatum, Adreßdaten, Veranstaltungsbezeich- 
nung (Einladung). Die angeschriebenen Teilnehmer sollen im Brief 
jeweils mit «Sehr geehrter Herr... .» oder «Sehr geehrte Frau... .» ange- 
redet werden. Hierfür muß ebenfalls eine Variable vorgesehen werden. 

3. Erstelle eine Kirche, die aus drei verschiedenen Baumaterialien zusam- 
mengesetzt wird. Unterschiedliche Baumaterialien sollen für das Turm- 
kreuz, das Mauerwerk und die Fenster verwendet werden. 


5 
Ein Ausflug ins Grafische 


Die Broschüren der Logohersteller bieten alle eine kleine Einführung in 
Logo mittels der Turtlegrafik. Diese Beschreibungen sind recht anschaulich 
und bieten viele einfache und interessante Beispiele. Daher wollen wir uns 
mit einem Abschnitt über Grafik begnügen und unbefangen einfach losle- 
gen. Wir sind fast schon im Grafikland der Turtle eingetroffen. Nur noch 
eine Erklärung. Die Turtle (Schildkröte) ist ein Cursor in Form eines 
Dreiecks. Dieses Dreieck ist in allen Richtungen verschiebbar und beliebig 
drehbar. 


5.1 Erster Spaziergang über den Bildschirm 


Wir finden hier eine willkürliche Auswahl und Abfolge von Grafikbefehlen, 
die wir einfach ablesen und eintippen. Wir sehen dann schon, was passiert. 
Es muß nicht groß erklärt werden. Neben den einzelnen Befehlen stehen 
kleingedruckt kurze Erklärungen. Wir sollten jederzeit nach Lust und 
Laune von den Vorgaben abweichen und den vorgegebenen Wanderweg 
verlassen. 

Die Kommandos CIRCLER, CIRCLEL, ARCR und ARCL sind Benut- 
zerroutinen und keine Logofunktionen, die von Apple als Utilities in der 
Datei names STARTUFP mitgeliefert werden. Benutzer anderer Versionen 
können diese kreisorientierten Routinen in den Einführungsbüchern «Start 
mit ...-Logo» nachschlagen (vgl. Literaturverzeichnis) oder am Ende des 
Vergleichs der Logoversionen im Anhang nachsehen. 


?PFD40  varem VORWAERTS UM 40 SCHRITTE 
PRT AS OO anesens NACH RECHTS UM 45 GRAD DREHEN 
?FD6O ven VORWAERTS UM 80 SCHRITTE 
?BK 30 0 mm ZURUECK UM 30 SCHRITTE 

PLT PO namen NACH LINKS UM 90 GRAD DREHEN 
?FDAO samen VORWAERTS UM 40 SCHRITTE 


?BK 100° vn ZURUECK UM 100 SCHRITTE 
?CIRCLER 30 con RECHTSKREIS MIT RADIUS VON 30 


Ein Ausflug ins Grafische 39 


?SETPOS [O 01 ..... 
?BK 30 PLLELER 
?LT 90 

?FD 40 

?ARCR 50 40 
?ARCR 20 180 ILLEER 
?LT 130 PRELIER 
?FD 60 

?CIRCLEL 20 
?ARCL 100 40 PLLLLER 
?PU PRELER 
?HOME PRLPEER 
?PD ILLLEER 


GEH ZUM PUNKT (X=0; Y=0) 
ZURUECK UM 30 SCHRITTE 

NACH LINKS UM 90 GRAD DREHEN 
VORWAERTS UM 40 SCHRITTE 
RECHTSKURVE (R=50; 40 GRAD) 
RECHTSKURVE (R=20; 180 GRAD) 
NACH LINKS UM 130 GRAD DREHEN 
VORWAERTS UM 60 SCHRITTE 
LINKSKREIS MIT RADIUS VON 20 
LINKSKURVE (R=100; 40 GRAD) 
STIFT HOCH;(NICHT ZEICHNEN) 
ZURUECK ZUM AUSGANGSPUNKT 
STIFT AB (WIEDER MITZEICHNEN) 


Nach dem Eintippen von FD 40 geht der Bildschirm in einen anderen 
Zustand über. Oben ist der Bereich für Grafik und unten Platz für vier 
Textzeilen, damit wir die eingetippten Anweisungen gut verfolgen können 
und nicht vollkommen hilflos auf die Tasten hämmern. 

Nachdem wir FD 40, RT 45 FD 60 und BK 30 eingetippt haben, sehen wir 


auf dem Schirm folgendes: 
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Nach weiteren vier Anweisungen sieht es dann so aus: 
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Haben wir alle Anweisungen eingehalten und unseren Lehrpfad nicht 
verlassen, zeigt der Schirm folgende Striche, Kreise und Kreisbögen: 
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Wir können natürlich auch eigene Programme schreiben, die Grafikan- 
weisungen enthalten. Alle obigen Anweisungen hätten wir unter dem 
Programm SPAZIERGANG zusammenfassen können. Löschen wir nun 
den Bildschirm mit CLEARSCREEN (abgekürzt CS) und rufen SPA- 


ZIERGANG auf. 


?PO 


TO 


"SPAZIERGANG 
SPAZIERGANG 


FD 40 

RT 45 

FD 60 

BK 30 

LT 90 

FD 40 

BK 100 
CIRCLER 30 
SETPOS [LO 0) 
BK 30 

LT 90 

FD 40 

ARCR 50 40 
ARCR 20 180 
LT 130 

FD 60 
CIRCLEL 20 
ARCL 100 40 
PU 
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3. SPAZIERGA 


In der vorletzten Programmzeile steht der Befehl HOME, der die Turtle 
in die Ausgangsposition bringt. In diesem Zustand ist die Turtle genau nach 
oben ausgerichtet. Drehen wir nun die Turtle jeweils um 10 Grad weiter 
nach rechts und rufen erneut SPAZIERGANG auf. Anschließend drehen 
wir die Turtle um zusätzliche 10 Grad weiter und so fort. 


? 


?CLEARSCREEN 
?SPAZIERGANG 


?RT 10 SPAZIERGANG 
?RT 20 SPAZIERGANG 
?RT 30 SPAZIERGANG 
?RT 40 SPAZIERGANG 
?RT 50 SPAZIERGANG 


?FULLSCREEN - 
Er 
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Der Schirm zeigt dann dieses Bild: 


Im Bereich der Textzeilen geht ein Teil der Grafik verloren. Doch wir 
können uns einfach helfen und bestimmen den ganzen Schirm für die 
Grafik. FULLSCREEN erledigt das für uns. 


5.2 Gebäude schrumpfen und wachsen 


Wir könnten jederzeit beliebige Figuren auf dem Schirm mit den vorgestell- 
ten Befehlen zeichnen. Mit etwas Fantasie lassen sich alle möglichen 
Gebilde aus geometrischen Figuren und Kurven komponieren. Im folgen- 
den zeigen wir einen Turm und ein Kirchenschiff. 


TO KIRCHE 
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TURM 
70 
30 
30 
120 
30 
30 
70 


HOME 
END 


TO 
RT 
FD 
LT 


SCHIFF 
90 
30 
90 
56 
90 


61 


62 Ein Ausflug ins Grafische 


Grafik macht noch mehr Spaß, wenn wir jetzt unser Wissen über Funk- 
tionseingaben anwenden und die Zahlenwerte zu den einzelnen Grafikan- 
weisungen beliebig ändern. Die wildesten Möglichkeiten eröffnen sich da. 
Im folgenden wollen wir nur die Geradeausbewegungen veränderlich ge- 
stalten und die Gradangaben konstant halten. Wir helfen uns mit wenig 
Aufwand und multiplizieren die jeweilige Zahl mit einer Variablen: 


TO KIRCHEi :GROESSE 
TURM1 :GROESSE 
SCHIFFi1 :GROESSE 
END 

TO SCHIFFi :GROESSE 
RT 90 

FD 30 * :GROESSE 

FD 5% * :GROESSE 

FD 25 * :GROESSE 

FD 40 * :GROESSE 


FD 25 * :GROESSE 


TO TURM1 :GROESSE 
FD 70 * :GROESSE 


FD 30 * :GROESSE 
FD 30 * :GROESSE 


FD 70 * :GROESSE 
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Spielen wir ein wenig mit unserem neuen Programm: 


Mit der Zahl 2 als Eingabe für die Größe gibt es Schwierigkeiten. Wir 
müßten den Ausgangspunkt für die Turtle irgendwo nach links unten 
verlegen. Die Funktion hierzu könnte lauten: 


TO AUSGANGSPUNKT :POS 
SETPOS :POS 

SETH 3680 

END 


SETH bedeutet in Langform SETHEADING, das heißt, die Turtle 
richtet sich gemäß der angegebenen Himmelsrichtung aus. Die Himmels- 
richtung wird in Grad der Kompaßrose angegeben. Hier soll die Turtle 
genau nach Norden zeigen. 
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Testen wir einen AUSGANGSPUNKT mit verschiedenen Werten. Die 
Eingabe muß jeweils eine Liste sein. Der Schirmmittelpunkt entspricht 
[00]. [-100 -95] ist ein guter Wert. Die Schirmeinteilung sollte im Herstel- 
lerhandbuch nachgesehen werden. Ändern wir also noch unser Kirchenpro- 
gramm und bauen den Ausgangspunkt ein: 


TO KIRCHEi :GROESSE :POS 
PU AUSGANGSPUNKT :POS PD 
TURM1 :GROESSE 

SCHIFFi :GROESSE 

END 


TO TURMi :GROESSE 
FD 70 * :GROESSE 
RT 30 

FD 30 * :GROESSE 
RT 120 

FD 30 * :GROESSE 
RT 30 

FD 70 * :GROESSE 
AUSGANGSPUNKT :POS 
END 


TO SCHIFFi :GROESSE 
RT 90 

FD 30 * :GROESSE 
LT 90 

FD 5% * :GROESSE 
RT 90 

FD 25 * :GROESSE 
RT 50 

FD 40 * :GROESSE 
RT 40 

FD 25 * :GROESSE 
AUSGANGSPUNKT :POS 
END 


Die erste Anweisungszeile in KIRCHEI ist vielleicht irritierend. Doch 
auf dem Weg zum Ausgangspunkt soll die Turtle keine Spur hinterlassen. 
Daher müssen wir den Zeichenstift vorher abheben und dann wieder nach 
Erreichen der Position aufsetzen. Jetzt probieren wir mal die Größe 2 und 
andere Werte aus, wenn der Ausgangspunkt links unten liegt. Wir können 
jetzt natürlich auch unsere Kirche auf dem Schirm hin- und herschieben: 


?KIRCHE1 2 [-100 -95] 
?KIRCHE1 1.8 [-100 -95) 
?KIRCHE1I .7 [-100 -95] 
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?KIRCHEI 
?KIRCHE1 
?KIRCHEI 
?KIRCHEI 


1.8 [-100 -95] 
.3 £-100 -95) 
.7 LO 25] 


«5 [30 


-10] 
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5.3 Astronebel 


Tolle Effekte lassen sich erreichen, wenn wir Zeichnungen sich drehen 
lassen. Im Abschnitt 5.1 hat sich das schon angedeutet. Entwerfen wir 
schnell solch ein Drehprogramm und lassen mal unseren Kirchturm rotie- 
ren. Die einfachste Methode ist ein Programmentwurf, bei dem sich das 
Programm immer wieder bis in alle Ewigkeit selbst aufruft. In TURMI 
haben wir in der letzten Zeile wieder HOME eingesetzt. 


TO DREH :GRAD :FAKTOR 
TURM1 1 

RT :GRAD * :FAKTOR 
DREH :GRAD :FAKTOR + 1 
END 
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Mit der Variablen :GRAD wählen wir die Turtledrehung nach jedem 
Zeichendurchgang vor. Mit dem Vervielfacher :ZAHL wird dann einfach 
beim erneuten Aufruf vom DREH der Wert für :GRAD die Werte von zum 
Beispiel 15, 30, 45, ... annehmen. 


? 


?CLEARSCREEN 
?DREH 15 1 
? 


Wir könnten natürlich eine noch schönere Kirche bauen. Zuerst wird ein 
großes Kirchenschiff entworfen, und dann werden solche Drehfiguren als 
Ornamente auf den Fassaden angebracht. 

Als Abschluß wollen wir den ersten Schirmspaziergang auch einmal 
rotieren lassen. DREH wird genauso aufgerufen, doch in DREH lassen wir 
in der zweiten Zeile SPAZIERGANG ablaufen. 
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5.4 Zusammenfassung und Übungen 


. Die Turtle oder Schildkröte läßt sich auf dem Bildschirm in jede Rich- 


tung bewegen. Sie läßt sich nach links oder rechts drehen, geht vorwärts 
oder rückwärts, läßt sich an beliebige Stellen des Bildschirms verset- 
zen... Die Turtle wird symbolisch durch ein Dreieck dargestellt. Die 
Dreieckspitze zeigt die Ausrichtung (Blickrichtung) an, in der die Turtle 
sich beim Vorwärtsbefehl bewegen würde. 


. Bei jeder Bewegung der Turtle wird eine Spur hinterlassen. Das Zeich- 


nen dieser Spur kann unterdrückt werden. Das ist sinnvoll, wenn man 
einzelne isolierte Figuren auf den Bildschirm zeichnen will. 


. Wird wiederholt mit Grafik gearbeitet, ist es sinnvoll, vorher den Bild- 


schirm zu löschen (CLEARSCREEN). 


. Beim Arbeiten mit der Turtle befindet sich der Bildschirm in einem 


zweigeteilten Zustand. Auf der unteren Schirmhälfte ist Platz zum 
Aufzeigen von vier eingetippten Anweisungszeilen. Wünscht man den 


a 


a\ 


SI 


je,e} 
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gesamten Bildschirm als Abbildungsfläche für Grafik, muß der Befehl 
FULLSCREEN eingetippt werden. 


. Neben den Richtungsänderungen und den Vor- und Rückbewegungen 


kann die Turtle auch Kreisbögen und Vollkreise zeichnen. 


. Beliebige Grafikbefehle lassen sich zu Programmen zusammenfassen, 


indem man sie in benutzerdefinierte Funktionen einbindet. Zum Experi- 
mentieren ist es sinnvoll, nicht konstante Zahlen als Eingaben für die 
Grafikbefehle zu nehmen, sondern Variable vorzusehen. 


. Interessante Effekte lassen sich erreichen, indem man Figuren und 


Abbildungen in der Größe verändert, Mehrfachabbildungen auf dem 
Bildschirm produziert oder diese Figuren sich drehen läßt. 


. Mit TEXTSCREEN verläßt man den Grafikmodus und hat den Normal- 


schirm. 


Neue Logovokabeln: 


a num - 


SS 


o» 


FORWARD (FD) HOME 

RIGHT (RT) PENDOWN (PD) 

BACK (BR) CLEARSCREEN (CS) 

LEFT (LT) FULLSCREEN 

CIRCLER SETHEADING (SETH) 

ARCR SETPOS 

CIRCLEL TEXTSCREEN 

ARCL SETSCRUNCH 

PENUP (PU) (in Verbindung mit Übungen) 
Aufgaben 


. Erstelle ein Programm, das Quadrate mit veränderlichen Seitenlängen 


zeichnet. 


. Erstelle ein Programm, das variable gleichseitige Dreiecke zeichnet. 

. Lasse unterschiedlich große liegende Achten zeichnen. 

. Zeichne veränderliche Kreisausschnitte (Tortenstücke). 

. Erstelle ein Punkt-Komma-Strich-Mondgesicht mittels der bisherigen 


Figuren. 
Zeichne verschieden große Figuren unter Verwendung der bisherigen 
Programme an verschiedenen Stellen des Bildschirms. 


. Wie viele Schritte kann die Turtle vom Mittelpunkt aus nach oben, 


unten, links und rechts gehen, bis sie den Bildschirmrand berührt? 
Die Anweisung SETSCRUNCH staucht oder streckt Abbildungen auf 
dem Bildschirm. Das Abbildungsverhältnis aus Vertikalschritt zu Hori- 


70 


\o 


10. 


Ein Ausflug ins Grafische 


zontalschritt wird durch SETSCRUNCH festgelegt. Die eingegebene 
Zahl nach SETSCRUNCH liegt meistens im Bereich zwischen 0.8 und 
1.2, abhängig vom jeweiligen Bildschirm, damit ein Kreis tatsächlich 
rund ist. Experimentiere mit SETSCRUNCH und geänderten Werten, 
um die Wirkung zu erkennen. Quadrate werden zu Rechtecken, Kreise 
zu Ellipsen usw. 


. Ändere die Aufgaben 1 und 2 in der Weise, daß sich die geometrische 


Figur nicht mehr schließt, indem jede zu zeichnende Seite immer ein 
kleines Stückchen länger gemacht wird. Die Drehungen aber dabei 
nicht ändern. (Hinweis: Dies macht man am einfachsten, indem sich das 
Programm selbst aufruft mit jeweils geänderten Eingaben.) 

Drehe Figuren aus den obigen Aufgaben entsprechend dem Programm 
DREH aus Abschnitt 5.3. 


6 
Wir benutzen den Drucker und speichern 
Programme auf Disketten 


Wir möchten unsere Arbeit auf Papier ausdrucken und manche Programme 
auf einer Diskette speichern, um zu einem späteren Zeitpunkt diese Pro- 
gramme wieder in den Arbeitsspeicher des Computers einzulesen und 
erneut zu verwenden. 

Der Drucker wird mit dem Befehl aktiviert: 

‚PRINTER 1 
Alles, was wir jetzt eintippen und alle Datenausgaben werden gedruckt. 
Abgeschaltet wird der Drucker mit: 
‚PRINTER 0 

Die Schreibbreite eines Druckers kann größer als 40 Zeichen pro Zeile 
sein. Das ist angenehm, da manche Logozeile länger als eine Bildschirmzei- 
le ist. Beim Apple-Matrix-Drucker wird der Drucker auf 80 Zeichen pro 
Zeile eingestellt, indem wir nach dem Aktivieren des Druckers folgende 
Anweisung eintippen: 

PR WORD CHAR 9 “80N 

Hiermit werden Steuerzeichen für den Drucker ausgegeben, was uns an 
dieser Stelle nicht weiter interessieren soll. 

Den gesamten Arbeitsspeicher können wir auf Diskette speichern. Dies 
erledigt der Befehl SAVE. Wir müssen nur noch einen Namen für das 
Gespeicherte vergeben, damit es entsprechend auf der Diskette katalogi- 
siert werden kann. 

SAVE “GERHARD 

Tippen wir jetzt den Befehl CATALOG ein, so wird das Inhaltsverzeich- 
nis der Diskette ausgegeben, und die Eintragung “GERHARD müßte im 
Inhaltsverzeichnis aufgenommen worden sein. 

Mit dem LOAD-Befehl lesen wir Inhalte der Diskette in den Arbeitsspei- 
cher des Computers ein. 

LOAD “GERHARD 
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Dateien werden auf der Diskette mit dem Befehl ERASEFILE gelöscht. 
ERASEFILE “GERHARD 
Besteht bereits eine Datei unter dem mit SAVE eingegebenen Namen, 
wird der SAVE-Vorgang nicht ausgeführt. Die alte Datei ist somit ge- 
schützt. Wollen wir wirklich diesen Dateinamen benutzen, so müssen wir 
vorher die Datei auf der Diskette mit ERASEFILE löschen. Daran müssen 
wir also bei Programmkorrekturen und ihrer Rückspeicherung denken. 


7. 
Selbstdefinierte Operationen 


7.1 Output muß immer dabeisein 


Wir kennen bereits eine Fülle von Logooperationen, beispielsweise FIRST, 
BUTFIRST, EMPTYP, COUNT und einige Rechenoperationen und Ver- 
gleichsoperationen. In Abschnitt 1.3 haben wir Operationen miteinander 
verknüpft. Im Gegensatz zu einem Befehl liefert eine Operation immer ein 
Ergebnis ab. Das abgelieferte Ergebnis einer Operation wird Eingabe eines 
Befehls oder einer anderen Operation. Das folgende Beispiel kennen wir 
bereits: 


? 
? 
?PRINT FIRST BF BF LICH DU ER SIE ES] 
ER 


Diese Anweisungszeile druckt das dritte Element einer Liste aus. Die 
Anweisungszeile könnten wir zum Inhalt eines kleinen Druckprogramms 
machen. 


TO DR.DRITTES :LISTE 
PRINT FIRST BF BF :LISTE 
END 


?DR.DRITTES LICH DU ER SIE ES] 
ER 


Dieses Programm ist somit ein benutzerdefinierter Befehl, da hier ein 
PRINT-Befehl vorkommt. Doch DR.DRITTES ist keine Operation. Es 
liefert das ermittelte dritte Element der Liste nicht weiter, sondern druckt 
es aus. Statt PRINT müssen wir eine andere Logofunktion einsetzen, damit 
eine Operation entsteht. Wir müssen OUTPUT einsetzen. 
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Testen wir gleich einmal DRITTES. Die jeweilige Computerantwort wird 
in kleineren Schrifttypen wiedergegeben. 


TO DRITTES :LISTE 
OUTPUT FIRST BUTFIRST BUTFIRST :LISTE 
END 


?PRINT DRITTES LICH DU ER SIE ES] 
ER 


?PRINT FIRST DRITTES LICH DU ER SIE] 
E 


?DRITTES [LICH DU ER SIE ES] 
1 DON’T KNOW WHAT TO DO WITH ER IN DRITTES 


Anhand der Beispiele sehen wir, daß DRITTES eine Operation ist, die 
sich mit anderen Logooperationen verketten läßt. Wird das abgelieferte 
Ergebnis von DRITTES nicht zur Eingabe eines Befehls, kommt der 
typische Fehlerkommentar «I DON’T KNOW WHAT TO DO WITH... .». 

Als nächstes definieren wir eine zweite Benutzeroperation und wollen 
testen, ob sich auch selbstdefinierte Operationen miteinander verketten 
lassen. Erstellen wir eine Operation, die jeweils die ersten drei Elemente 
der Eingabe entfernt. 


TO 3WEG :0OBJEKT 
OUTPUT BF BF BF :OBJEKT 


END 


? 


?PRINT SWEG LICH DU ER SIE ES] 
SIE ES 


?PRINT 3WEG "FRANKFURT 
NKFURT 


?PR 3WEG DRITTES LICH DU FRANKFURT ER] 


NKFURT 


?PRINT COUNT 3WEG IABCDEF GI 
4 


?PR BF BF 3WEG DRITTES [A B HAHAHII 
I 
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Im folgenden stellen wir einige Operationen in Form von Aufgaben vor, 
wobei neben der Aufgabe die Operation schematisch mit einem Eingabe- 
beispiel gezeigt wird. Anschließend wird jede Operation aufgelistet und 
getestet. 

1. Schreibe eine Operation, die vom ein- “WORT 
gegebenen Wort die ersten beiden 


Buchstaben liefert. ZWEIZCHN 
\ 
“Wo 


TO ZWEIZCHN :WORT 
OUTPUT WORD FIRST :WORT FIRST BF :WORT 
END 


?PR ZWEIZCHN "WORT 
wo 


2. Schreibe eine Operation, die das einge- “DU 
gebene Wort vervierfacht liefert. J 
VIERFACH 
J 
“DUDUDUDT 


TO VIERFACH :WORT 
OP <WORD :WORT :WORT :WORT :WORT) 
END 


?PR VIERFACH "DU 
DUDUDUDU 


3. Schreibe eine Operation, die die einge- 12 


gebene Zahl quadriert. J 
QUADRAT 
J 


144 


TO QUADRAT :ZAHL 
OUTPUT :ZAHL * :ZAHL 
END 


?PR QUADRAT 12 
144 
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4. Schreibe eine Operation, die einen ein- 4500 
gegebenen Pfennigbetrag in DM um- 


\ 
wandelt. PFDM 
J 


45.00 


TO PFDM :PF 


OP «WORD BL BL :PF ". LAST BL :PF LAST ı 
PF) 


END 


?PR PFDM 12345 
123.45 


5. Schreibe eine Operation, die die beiden [KOCH TOPF] 
Wörter einer zweielementigen Liste zu 


einem Wort zusammensetzt. KLEBEN 


v 
“KOCHTOPF 


TO KLEBEN :LISTE 


OUTPUT WORD FIRST :LISTE LAST :LISTE 
END 


?PR KLEBEN [KOCH TOPF]) 
KOCHTOPF 


6. Schreibe eine Operation, die die zwei “HAUS “TOR 
eingegebenen Wörter zu einem Wort 


zusammensetzt. ZUSAMMEN 
J 


“HAUSTOR 


TO ZUSAMMEN :WORTI :WORT2 
OUTPUT WORD :WORT1 :WORTZ2 
END 


?PR ZUSAMMEN "HAUS "TOR 
HAUSTOR 
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7. Schreibe eine Operation, die die zwei “ICH DU“ 
eingegebenen Wörter in eine zweiele- 


J 
mentige Liste umwandelt. INLISTE 
J 
[ICH DU] 


TO INLISTE :WORT1 :WORT2 
OUTPUT SENTENCE :WORT1I :WORT2 
END 


?PR INLISTE "ICH "DU 
ICH DU 


?PR LISTP INLISTE "ICH "DU 
TRUE 


?PR COUNT INLISTE "ICH "DU 
2 


8. Schreibe eine Operation, die von den [ABC] 
drei eingegebenen Listen die ersten [ICH DU] 
Buchstaben jedes ersten Wortes in der | [WER DA] 


Liste zu einem Wort zusammenfügt. 
DREIZCHN 


J 
“AIW 


TO DREIZCHN ıLi :L2 ı:ıL3 


OUTPUT <WORD FIRST FIRST :Li FIRST FIRST 
:L2 FIRST FIRST :L3) 
END 


?PR DREIZCHN LA B C) LICH DU] [WER DA] 
AIW 


Wie schon erwähnt, können wir natürlich die selbstdefinierten Operatio- 
nen beliebig miteinander verketten. Das geht nur so lange gut, wie die 
Zusammensetzung sinnvoll ist und die einzelnen Operationen definitionsge- 
mäße Eingaben erhalten. VIERFACH darf keine Listen als Eingabe haben. 
ZWEIZCHN muß mindestens ein Wort mit zwei Buchstaben als Eingabe 
haben usw. Sehen wir uns gleich mal einige mögliche Verkettungen an. 


Zum Schluß erzeugen wir einige Fehler, damit wir typische Fehlermeldun- 
gen sehen. 
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? 

? 

?PR QUADRAT QUADRAT QUADRAT 12 
429981696 


?PR ZUSAMMEN "HAUS QUADRAT 12 
HAUS144 


e 

?PR VIERFACH ZWEIZCHN ZUSAMMEN QUADRAT 
3 QUADRAT 12 

91919191 


?PR KLEBEN L[] 
FIRST DOESN’T LIKE [) AS INPUT: 
JUST BEFORE LEAVING KLEBEN 


?PR ZWEIZCHN [WORT] 
FIRST DOESN’T LIKE [) AS INPUT: 
JUST BEFORE LEAVING ZWEIZCHN 


?PR ZWEIZCHN "A 
FIRST DOESN’T LIKE AS INPUT: 
JUST BEFORE LEAVING ZWEIZCHN 


7.2 Welches Wort darf es denn bitte sein? 


Wir haben in Abschnitt 7.1 die Operation DRITTES kennengelernt. In 
entsprechender Weise könnten wir Operationen erstellen, wenn bei späte- 
ren größeren Aufgaben vielleicht das vierte, sechste oder neunte Element 
einer Liste gefragt wäre. Hierfür gibt es aber eine Logooperation mit 
Namen ITEM. ITEM entspricht genau der Überschrift dieses Abschnitts. 
Wir müssen ITEM nur noch sagen, welches Element aus welcher Liste 
gewünscht wird. Zuerst geben wir die entsprechende Zahl und dann die 
Liste ein. 

? 


?PRINT ITEM 3 LICH DU ER SIE A B ZEH] 
ER 


?PRINT ITEM 7 LICH DU ER SIE A B ZEH] 
ZEH 


?PRINT ITEM 5 LICH DU ER SIE A B ZEH! 
A 
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An dieser Stelle gleich noch einige Tips. Wir müssen nicht jedesmal die 
Anweisungszeile vollständig neu eintippen. Benutzen wir doch einfach 
CTRL-Y. Genau, die alte Eingabezeile erscheint, und drücken wir die 
RETURN-Taste, läuft das gleiche noch einmal ab. Doch wir können ja vor 
dem RETURN die Eingabezeile ändern und zum Beispiel die Zahl ändern 
oder die Liste. Also noch einmal in Abschnitt 1.4 nachsehen, falls das 
vergessen ist. 

Die ITEM-Geschichte wollen wir zur Übung zu einer Operation mit dem 
Namen N.TES.ELEMENT verpacken. Ansonsten leistet sie gleiches wie 
ITEM. Im Prinzip deutschen wir ITEM nur ein. 


TO N.TES.ELEMENT :WELCHES :LISTE 
OUTPUT ITEM :WELCHES :LISTE 
END 


?PR N.TES.ELEMENT 3 LICH DU ER SIE) 
ER 


7.3 Wir würfeln und spielen Zufall 


In Wissenschaft und Technik werden viele Modelle theoretisch durchge- 
spielt. Der Computer muß sich für solche Simulationen entsprechendes 
Spielmaterial selbst erzeugen. Es gibt einfache und komplizierte Operatio- 
nen zum Erzeugen von Zufallszahlen. Kern solcher Zufallszahlengenerato- 
ren ist oft eine Funktion mit Namen RANDOM (Zufall). Die Logoopera- 
tion RANDOM hat immer eine Zahl als Eingabe. Die Zahl gibt den 
Bereich an, aus dem Zufallszahlen erzeugt werden sollen. 


2 
?PRINT RANDOM 5 
3 


?REPEAT 20 LTYPE RANDOM 5] 
21413234242220134214? 


Wir sehen also, daß die Eingabe 5 zu fünf Zufallszahlen führen kann. 
Möglich sind 0, 1, 2, 3 und 4. Die eingegebene Grenze selbst gehört nicht 
mehr zu einer der Zufallszahlen. 

Erstellen wir einmal einen Spielwürfel, der die Punktzahlen 1 bis 6 als 
Möglichkeiten erzeugen soll. Die Null müssen wir irgendwie unterdrücken. 
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Hätten wir beispielsweise im obigen Testfall immer noch die Ziffer 1 
dazugezählt, so hätten wir die Zufallszahlen von 1 bis einschließlich 5 
bekommen. Diesen kleinen Trick wenden wir auch bei unserem Würfel an: 


TO WUERFEL 
OUTPUT 1 + RANDOM & 
END 


?PR WUERFEL 
2 


> 


?PR WUERFEL 
4 


?REPEAT 20 [TYPE WUERFEL] 
33554625622143315551 ? 


Wollten wir einen Wurf mit drei Würfeln aus einem Knobelbecher 
simulieren, brauchten wir nur die Ergebnisse dreimaligen Würfelns mit 
WUERFEL addieren, also: 


TO DREIERWURF 
OP <SUM WUERFEL WUERFEL WUERFEL)? 
END 


> 
?PR DREIERWURF 
16 


?REPEAT 10 LTYPE DREIERWURF TYPE "\)] 
14 139128148314 11 ? 


Man kann natürlich auch Zufallsbuchstaben oder -wörter erzeugen, in- 
dem wir Zahlen erzeugen und vom Computer den zu dieser Kodierungs- 
nummer gehörigen Buchstaben ermitteln lassen. Sehen wir einmal im 
Handbuch nach und ermitteln die Kodenummern der Buchstaben A bis J: 


A-65 
B - 66 
C-67 
1-73 
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Was müssen wir an Operationen entwickeln, um fünfbuchstabige Wörter 
zu erzeugen, die nur aus den Buchstaben A bis J bestehen sollen? 
1. Zufallszahlen für die Kodierungsnummern 65 bis 74 erzeugen. 
2. Mit einer Operation den zugehörigen Buchstaben ermitteln. Dieses löst 
uns einfach die Logooperation CHAR (heißt Zeichen oder Buchstabe). 
3. Fünf Buchstaben erzeugen und zu einem Wort zusammensetzen. 


TO ZUFALLSWORT 
OP (WORD ZCHN ZCHN ZCHN ZCHN ZCHN) 
END 


TO ZCHN 
OUTPUT CHAR 65B1S74 
END 


TO 65B1S74 
OUTPUT 45 + RANDOM 10 
END 


? 


?PR ZUFALLSWORT 
JBEAC 


?REPEAT % [PRINT ZUFALLSWORT]I 
EJAHI 
AJDFF 
BCCBH 
JECRJ 
DGEGH 
HIAG] 


7.4 Ein Zufallsroman 


Ein Computer kann keine Gedichte oder Romane schreiben. Er kann aber 
aus einem bereitgestellten Vorrat von Satzteilen beliebige Kombinationen 
bilden, und das massenhaft. Solch ein Programm wollen wir erstellen. So 
ein Zufallsroman, der aus 60 zusammengewürfelten Zeilen besteht, sei 
gleich einmal vorgestellt: 


DIE KLASSE PFEIFFT BESOFFEN AUF DEM BETT 
FIFFI LACHT SCHNOED IM UNTERRICHT 
.GUNHILD SCHLAEFT TOLL IM ZELT 

ER SCHLAEFT FETZEND IM KINO 

DER DEPP SINGT VOLL IM.UNTERRICHT 

ER SITZT TOLL AUF DEM OFEN 

SIE GEHT TOLL IM BETT 
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DETLEF PFEIFFT FETZEND IM ZELT 

DETLEF PFEIFFT TOLL UNTER DER DUSCHE 
DAS STADION WEINT SCHNOED IM BETT 
FIFFI TANZT TOLL IM AUTO 

EIN BUB SINGT GRAUSAM IM KINO 

ER SCHREIBT SUESS AUF DER TENNE 

DER DEPP SCHLAEFT NUECHTERN IM ZELT 
FIFFI PFEIFFT SCHNOED IM ZELT 

SIE SITZT BLOED IN DER SCHULE 

SIE LACHT VOLL IN DER SCHULE 

FIFFI GEHT FETZEND AUF DEM OFEN 

ER WEINT BLOED IM AUTO 

DIE KLASSE LERNT GRAUSAM IM AUTO 

DIE KLASSE SCHREIBT COOL AUF DEM BETT 
GUNHILD GEHT BLOED IM UNTERRICHT 

DER DEPP GEHT BLOED UNTER DER DUSCHE 
GUNHILD LACHT GRAUSAM IM AUTO 
GUNHILD PFEIFFT TOLL IM ZELT 

DER PAUKER SCHREIBT SCHNOED IM AUTO 
DETLEF WEINT VOLL IM UNTERRICHT 

DAS STADION PFEIFFT VOLL AUF DEM OFEN 
DETLEF PFEIFFT TOLL IM BETT 

DER PAUKER GEHT COOL IM AUTO 

DER PAUKER SCHREIBT BESOFFEN IM BETT 
DER DEPP LERNT COOL IM AUTO 

ER SCHREIBT FETZEND AUF DEM OFEN 
DETLEF SCHREIBT NUECHTERN IN DER SCHULE 
EIN BUB LACHT SCHNOED IN DER SCHULE 
ER LERNT COOL IM AUTO 

SIE SCHREIBT GRAUSAM UNTER DER DUSCHE 
GUNHILD SINGT TOLL AUF DEM BETT 

EIN BUB GEHT FETZEND IM BETT 

EIN BUB SITZT SCHNOED IM BETT 

EIN BUB WEINT NUECHTERN IN DER SCHULE 
ER TANZT SCHNOED IM BETT 

DER DEPP SCHREIBT FETZEND IM KINO 

DER DEPP LACHT TOLL AUF DEM BETT 

DER PAUKER SCHREIBT COOL IM ZELT 
Firrl SCHREIBT FETZEND IM AUTO 

ER SCHLAEFT VOLL IM AUTO 

SIE SINGT FETZEND IM BETT 

GUNHILD SCHLAEFT FETZEND IM ZELT 

DER DEPP SCHREIBT SCHNOED IM KINO 

EIN BUB SINGT SCHNOED IM UNTERRICHT 
DER PAUKER LACHT VOLL AUF DER TENNE 
DIE KLASSE WEINT GRAUSAM IM UNTERRICHT 
ER SINGT NUECHTERN IM KINO 

GUNHILD TANZT TOLL AUF DEM OFEN 
GUNHILD PFEIFFT NUECHTERN IM BETT 

DER DEPP PFEIFFT COOL AUF DER TENNE 
DIE KLASSE SCHREIBT BLOED UNTER DER DUSCHE 
GUNHILD LACHT FETZEND IN DER SCHULE 
DIE KLASSE SCHREIBT SUESS IM BETT 
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Ein Deutschlehrer würde mit geschultem Blick feststellen, daß alle Sätze 
den gleichen Aufbau haben, nämlich ein Subjekt, ein Prädikat, ein Adverb 
und schließlich als letztes eine adverbiale Bestimmung des Ortes. 


Subjekt 

Prädikat 

Adverb 

Adverbiale Bestimmung des 
Ortes 


Der Junge pfeift laut im Flur 


Einigen wir uns darauf, daß der Computer jeweils einen Vorrat von 10 
Subjekten, 10 Prädikaten usw. haben soll. Mit diesem Spielmaterial von 4 
mal 10 Satzteilen soll er dann wild drauflos «dichten». Wir erzeugen somit 
immer wieder einen prinzipiell gleichen Zufallssatz. Mit einer REPEAT- 
Anweisung erledigen wir das ganz bequem: 


TO ROMAN sANZAHL.ZEILEN 
REPEAT :ANZAHL.ZEILEN [PRINT ZUFALLSSATZ)I 
END 


Die Operation ZUFALLSSATZ stellt nach obiger Regel einen einzigen 
Satz zusammen: 


TO ZUFALLSSATZ 
OUTPUT <SE SUBJEKT PRAEDIKAT ADVERB ORTSBESTIMMUNG) 
END 


Als nächstes betrachten wir die Operation SUBJEKT, die uns jetzt aus 
einem Vorrat von zehn Möglichkeiten ein Subjekt liefern müßte. Die 
Operation N.TES.ELEMENT und ZUFALL sind uns schon bekannt. 
ZUFALL liefert eine Zufallszahl zwischen 1 bis 10. Die Operation SUB- 
JEKTLISTE liefert dann als Spielmaterial zehn Subjekte. 


TO SUBJEKT 
OUTPUT N.TES.ELEMENT ZUFALL SUBJEKTLISTE 
END 
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TO SUBJEKTLISTE 
OP LER SIE DER DEPP DER PAUKER DETLEF GUNHILD EIN BUB DAS STADION DIE KLASSE FIFFI) 
END 


TO ZUFALL 
OUTPUT SUM 1 RANDOM 10 
END 


?PR ZUFALLSSATZ 
EIN BUB PFEIFFT COOL IM KINO 


Die restlichen Operationen PRAEDIKAT, ADVERB und ORTSBE- 
STIMMUNG sind gleichermaßen definiert. Somit ergeben sich folgende 
von uns definierte Funktionen, die wir jetzt auflisten. 


?POTS 

ROMAN 
ZUFALLSSATZ 
SUBJEKT: 
N.TES.ELEMENT 
ZUFALL 
PRAEDIKAT 
ADVERB 
ORTSBEST IMMUNG 
SUBJEKTLISTE 
PRAEDIKATLISTE 
ADVERBLISTE 
ORTSLISTE 


TO ROMAN :ANZAHL.ZEILEN 
REPEAT :ANZAHL .ZEILEN [PRINT ZUFALLSSATZ] 
END 


TO ZUFALLSSATZ 
OUTPUT <SE SUBJEKT PRAEDIKAT ADVERB ORTSBESTIMMUNG) 
END 


TO SUBJEKT 
OUTPUT N.TES.ELEMENT ZUFALL SUBJEKTLISTE 
END 


TO N.TES.ELEMENT :WELCHES :DATEN 
OUTPUT ITEM :WELCHES :DATEN 
END 


TO ZUFALL 
OUTPUT SUM 1 RANDOM 10 
END 
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TO PRAEDIKAT 
OUTPUT N.TES.ELEMENT ZUFALL PRAEDIKATLISTE 
END 


TO ADVERB 


OUTPUT N.TES.ELEMENT ZUFALL ADVERBLISTE 
END 


TO ORTSBESTIMMUNG 
OUTPUT N.TES.ELEMENT ZUFALL ORTSLISTE 
END 


TO SUBJEKTLISTE 
OP LER SIE DER DEPP DER PAUKER DETLEF GUNHILD EIN BUB DAS STADION DIE KLASSE FIFFI) 
END 


TO PRAEDIKATLISTE 
OP LPFEIFFT SINGT LACHT SCHLAEFT SITZT GEHT SCHREIBT LERNT TANZT MEINT) 
END 


TO ADVERBLISTE 
OP LSUESS GRAUSAM VOLL TOLL BESOFFEN NUECHTERN COOL FETZEND BLOED SCHNOED) 
END 


TO ORTSLISTE 


OP LAUF DEM BETT IN DER SCHULE IM KINO IM ZELT UNTER DER DUSCHE IM AUTO AUF DEM OFEN IM UNTERRICHT 
IM BETT AUF DER TENNE) 
END 


Bevor wir nun starten, noch schnell einige Tips. Nie sind Programme 
fehlerfrei. In Logo hat man die bequeme Möglichkeit, jede einzelne Benut- 
zerfunktion - ob Befehl oder Operation — isoliert auszutesten. Da wir 
wissen, was jede Funktion leisten soll, können wir alle einzeln durchprobie- 
ren. Unten sind einige Beispiele gezeigt, wie man es machen könnte, wenn 
Fehlermeldungen auf eines der selbstdefinierten Programme hinweisen. 
Besser ist aber immer, vorher Einzeltests zu machen. Gerade die Satzteilli- 
sten sind tückisch, da man sich mit der Anzahl verzählen kann. Es sollten ja 
zehn Elemente pro Liste sein. Mit COUNT läßt sich das einfach überprü- 
fen. 


?PR SUBJEKT 
DIE KLASSE 


?PR ORTSBESTIMMUNG 
IM UNTERRICHT 
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?PR COUNT ORTSLISTE 


?PR COUNT SUBJEKTLISTE 


?PR COUNT ADVERBLISTE 


?PR N.TES.ELEMENT 10 SUBJEKTLISTE 
FIFFI 

2 

?PR ZUFALL PR ZUFALL PR ZUFALL 

, 

8 


4 
? 


?PR N.TES.ELEMENT ZUFALL ORTSLISTE 
AUF DER TENNE 


Wenn wir halbwegs sicher sind, daß alles richtig ist, sollten wir jetzt 
eingeben: 
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7.5 Zusammenfassung und Übungen 


1. Benutzerdefinierte Operationen funktionieren in gleicher Weise wie 
Operationen des Logosystems. Eine benutzerdefinierte Operation kann 
die Eingabe für Logobefehle oder andere Operationen sein. 

2. Benutzerdefinierte Operationen lassen sich beliebig mit weiteren Benut- 
zeroperationen oder Logosystemoperationen verketten. 

3. Die Operationseigenschaft einer Benutzerfunktion wird erreicht, indem 
das Ergebnis der Verarbeitung mit OUTPUT abgeliefert wird. Damit ist 
auch der Ablauf der Operation beendet. 


Neue Logovokabeln: 
OUTPUT 
ITEM 
RANDOM 
SUM 
(SUM...) 
CHAR 


fer 


[557 


ww 


p = 


he 


a 
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Aufgaben 


. Berechne den Flächeninhalt von Recht- 


ecken. 


. Erstelle eine Operation, die den Mittel- 


wert seiner beiden eingegebenen Zah- 
len bildet. 


. Lasse durch eine Operation die beiden 


Elemente einer zweielementigen Liste 
gegeneinander austauschen. 


. Erstelle eine Operation, die von Eigen- 


schaftswörtern den Komperativ bildet. 


Erstelle eine Operation, die jeweils die 
letzten drei Elemente (Wörter) einer 
Liste nimmt und aus den jeweils letzten 
Buchstaben eine Liste bildet. 


. Bilde eine Operation, die eine Lotto- 


zahl erzeugt (eine Zahl von 1 bis 49). 


SI 


4 3 
I 


FLAECHE 


A 


4.5 6.3 


DURCHSCHNITT 


Pa 
Mg: 
> 

ge 


[ICH BIN] 


TAUSCH 


1 


[BIN ICH] 
"SCHOEN 


STEIGERN 


1 


"SCHOENER 
[ICH DU ER] 


LETZTENDREI 


I 


[RUH] 


LOTTOZAHL 


i 


47 
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7. Bilde eine Operation, die eine fünfstel- 


lige Zufallszahl erzeugt. SERZAHL 


J 
36901 
8. Erstelle eine Operation, die für beliebi- 1. 1, 1 25 
ge Polynome 2. Grades (y = Ax? + Bx 
+ C) den y-Wert abhängig vom x-Wert 
und den eingegebenen Koeffizienten } 
liefert. 1.75 


9. Erstelle eine Operation F und H für 
Aufgabe 2 in Kapitel 4, um beim Pro- 
grammaufruf von BRIEF für die Einga- Äl 
be :ANREDE jeweils nur F für die ’R HERR 
Anrede einer Frau und H für die Anre- 
de eines Herrn eintippen zu müssen. 
Wie lautet dann der Programmaufruf 
von BRIEF? 


8 


Falsch- oder Wahr-Prüfwörter 


8.1 


Prüfwörter in Logo 


Häufig müssen wir in Programmen Daten inhaltlich überprüfen. Eine 
solche Prüfung hat immer eine von den beiden Möglichkeiten ”TRUE oder 
”FALSE (wahr oder falsch) als Ergebnis. 


?PRINT 
FALSE 
?PRINT 
FALSE 
?PRINT 
TRUE 
?PRINT 
TRUE 


EMPTYP "TASSE 
EMPTYP LDIESE LISTE) 
EMPTYP EL] 


EMPTYP BF BF BF "TEE 


EMPTYP überprüft, ob die Eingabe ein leeres Wort oder eine leere Liste 
ist. Logoprüfwörter erkennt man äußerlich an dem nachgestellten Buchsta- 
ben P (für proof oder Prüfung). Das Wort «empty» bedeutet «leer». 

In Form von Beispielen lernen wir einige weitere Logoprüfwörter ken- 
nen, die wohl nicht weiter erläutert werden müssen. 


?PRINT 
TRUE 
?PRINT 
FALSE 
?PRINT 
TRUE 
?PRINT 
TRUE 


?PRINT 
FALSE 
?PRINT 
TRUE 


WORDP "WORT 
WORDP [WORT] 
WORDP "176 


WORDP 176 


NUMBERP L123) 


NUMBERP FIRST [123] 
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?PRINT LISTP L[] 

TRUE 

?PRINT LISTP "LISTE 

FALSE 

?PRINT LISTP FIRST [123] 
FALSE 


?PRINT EQUALP "ICH "DU 
FALSE 

?PRINT EQUALP "ICH "ICH 
TRUE 

?PRINT EQUALP "ICH LICH] 
FALSE 

?PRINT EQUALP [AI FIRST L[LL[AI)I 
TRUE 

?PRINT EQUALP 3 5 

FALSE 

?PRINT 3=5 

FALSE 


?PRINT MEMBERP "A IGABEL) 

SPRINT MEMBERP "GANZ LALLES GANZ GUT) 
FPRINT MEMBERP "GANS [ALLES GANZ GUT] 
SPRINT MEMBERP "A "GABEL 

MENBERP DOESN’T LIKE GABEL AS INPUT 


Beim Prüfwort WORDP haben wir die Zahl 176 einmal mit und einmal 
ohne die vorgeschriebenen Anführungsstriche eingegeben. Nur bei Zahlen 
ist das erlaubt. Zahlen sind ebenfalls Wörter. Aber ein Wort muß nicht eine 
Zahl sein, wie die Beispiele mit NUMBERP zeigen. Für das Prüfwort 
EQUALP gibt es die schon bekannte Kurzform «=». Das Prüfwort MEM- 
BERP verlangt als zweite Eingabe eine Liste. Mit diesem Prüfwort können 
wir somit nicht untersuchen, ob ein Buchstabe in einem Wort vorkommt. So 
eine Prüfoperation müßten wir also selber erstellen. 

Manchmal ist es nützlich, mehrere Prüfergebnisse miteinander zu ver- 
knüpfen. Wir könnten beispielsweise eine Prüfung benötigen, bei der drei 
Bedingungen wahr (”TRUE) sein müssen. Es könnte auch sein, daß aus 
mehreren Möglichkeiten mindestens eine wahr sein muß. Das Verknüpfen 
solcher «Wahrheiten» geschieht mit den Operationen AND und OR. Man 
kann auch ein ”TRUE oder ”FALSE ins genaue Gegenteil umkehren, 
indem einfach das Wörtchen «Nicht» vorangestellt wird in Form der Opera- 
tion NOT. Sehen wir uns in Form von Beispielen einmal solche Verknüp- 
fungen an: 


?PRINT 
TRUE 
?PRINT 
TRUE 


?PRINT 
TRUE 
?PRINT 
TRUE 
?PRINT 
FALSE 


Falsch- oder Wahr-Prüfwörter 91 


NOT NUMBERP "123 
NOT LISTP LICH DU ER) 


NOT MEMBERP "A [A BC) 


AND NUMBERP "123 LISTP [A BC) 


AND 3 X4%&% 9) 4 


OR 3X44) 6 
OR WORDP [AI LISTP LJA)I 


NOT OR WORDP [LA] LISTP [JA] 


8.2 Selbstdefinierte Prüfwörter 


Logo bietet den Komfort, alles, was man braucht, als eigene Funktion 
(benutzerdefinierte Funktionen) zu erstellen. Selbstdefinierte Prüfwörter 
sind hierfür ein Beispiel. Wir wollen allen selbstdefinierten Prüfwörtern am 
Ende ein Fragezeichen hinzufügen. Wer will, kann natürlich beim alten 
Buchstaben P bleiben. 

Wir stellen folgend einige Beispielaufgaben vor, die gleich aufgelistet und 
auch getestet werden. 


1. Erstelle ein Prüfwort, das untersucht, 10 


ob die eingegebene Zahl größer als 5 


ist. 


J 
J 


"TRUE 


TO GRS? :ZAHL 


OUTPUT 
END 


ZAHL > 5 


?PRINT GRS5? 10 


TRUE 


?PRINT GRS5? 4 


FALSE 
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2. Erstelle ein Prüfwort, das untersucht, [A B] 
ob die eingegebene Liste fünf Listenele- 


mente hat. SERLISTE? 
Y 


"FALSE 


TO SERLISTE? :LISTE 
OUTPUT 5 = COUNT :LISTE 
END 


?PRINT SERLISTE? [A B ZEH [LICH DU] E) 
TRUE 

?PRINT SERLISTE? IA B ZEH) 

FALSE 

?PRINT SERLISTE? [] 

FALSE 


3. Erstelle ein Prüfwort, das die eingege- [A] [B] 
benen zwei Listen dahingehend unter- ‚ı 
sucht, ob die erste Liste mehr Elemente LAENGER? 
als die zweite Liste enthält. f 

"FALSE 


TO LAENGER? :LISTEI :LISTE2 
OP COUNT :LISTEiI > COUNT :LISTE2 
END 


?PRINT LAENGER? [A B C DJ LICH) 
TRUE 

?PRINT LAENGER? [ICHI [A BC D) 
FALSE 

?PRINT LAENGER? [A] [) 

TRUE 


4. Erstelle ein Prüfwort, das untersucht, 4 
ob die eingegebene Zahl kleiner als 


J 
null ist. NEGATIV 


J 
"TRUE 
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TO NEGATIV? :ZAHL 
OUTPUT :ZAHL < 0 
END 


?PRINT NEGATIV? 123 
FALSE 
?PRINT NEGATIV? -12 
TRUE 


5. Erstelle ein Prüfwort, das untersucht, A ”B 
ob die beiden eingegebenen Buchsta- ee 
ben in alphabetischer Reihenfolge ste- 
hen. Der erste Buchstabe soll vor dem — 


zweiten Buchstaben sein. 

(Hinweis: Mit der Operation ASCII ge- 
winnt man die Ordnungsnummer des 
Buchstabens gemäß der Kodierungsta- 
belle. Vergleiche auch 7.3). 


"TRUE 


TO VORAN? :Z2CHNI :ZCHN2 
OUTPUT ASCI1 :ZCHNIi < ASCII :ZCHN2 
END 


?PRINT VORAN? "A "B 
TRUE 

?PRINT VORAN? "B "A 
FALSE 

?PRINT VORAN? "B "2 
TRUE 


6. Erstelle ein Prüfwort, das untersucht, "A ”B 
ob die beiden eingegebenen Buchsta- ‚ı 
ben nicht in alphabetischer Reihenfolge NVORAN? 
stehen. 

J 
"FALSE 


TO NVORAN? :ZCHNI :2CHN2 
OUTPUT NOT VORAN? :ZCHNI :ZCHN2 
END 


?PRINT NVORAN? "A "B 
FALSE 
?PRINT NVORAN? "B "B 
TRUE 
?PRINT NVORAN? "C "A 
TRUE 
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7. Erstelle ein Prüfwort, das seine vier 2: 22 26 
Eingaben untersucht, ob sie alle mitein- I ı dd 
ander gleich sind. ALLEGLEICH? 

N 
"FALSE 


TO ALLEGLEICH? :A :B :C :D 
OP <AND :A = :B :B = :C :C = :D) 
END 


?PRINT ALLEGLEICH? 1 1 11 

TRUE 

?PRINT ALLEGLEICH? [J L) [)] [) 
TRUE 

?PRINT ALLEGLEICH? [)J [L) [) [1] 
FALSE 


8. Erstelle ein Prüfwort, das das eingege- 
bene Wort untersucht, ob es der Buch- 


1 
\ 

stabe ”A, der Buchstabe ”Z oder die A. Z. ODER.1? 
J 


Ziffer ”1 ist. 
"TRUE 


TO A.Z.ODER.1? :0OBJ 
OP <OR :0BJ = " :OBJ = "2 :0BJ = 1) 
END 


?PRINT A.Z.ODER.1? "ZET 
FALSE 

?PRINT A.Z.ODER.1? "2 
TRUE 

?PRINT A.Z.ODER.1? "A 
TRUE 


8.3 Zusammenfassung und Übungen 


1. Prüfwörter sind ein Sonderfall der Operation. Sie liefern entweder 
”TRUE (wahr) oder ”FALSE (falsch) als Ergebnis. 

2. Neben den vom Softwarehersteller zur Verfügung gestellten Logoprüf- 
wörtern kann der Benutzer für seine Belange die gewünschten Prüfwör- 
ter selbst erstellen. 


3: 


4. 
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Das Prüfwort MEMBERP schreibt zwingend als zweite Eingabe eine 
Liste vor. Andernfalls gibt es eine Fehlermeldung. 

Die Ergebnisse von Prüfwörtern können durch logisches Und, Oder und 
die Negation miteinander verknüpft werden. 


Neue Logovokabeln: 


fr 


[557 


w 


> 


an 


a 


SS 


EMPTYP 
WORDP 
NUMBERP 
LISTP 
EQUALP 
MEMBERP 


REMAINDER (in Verbindung mit den Übungen) 
Aufgaben 


. Erstelle ein Prüfwort, das kontrolliert, ob das letzte Element einer Liste 


eine Zahl ist. 


. Erstelle ein Prüfwort, das die eingegebene Liste überprüft, ob das letzte 


Element der Liste ein Vokal ist. 


. Erstelle ein Prüfwort, das das Münzenwerfen (Kopf oder Zahl) realisiert. 


Benutze hierzu die Operation RANDOM. 0 entspricht Kopf und 1 
entspricht ZAHL. 


. Erstelle ein Prüfwort, das die eingegebene Zahl überprüft, ob sie eine 


ganze Zahl ist. 


. Erstelle ein Prüfwort, das die eingegebene Zahl überprüft, ob sie eine 


ungerade Zahl ist. Benutze hierzu Aufgabe 4 und die Operation NOT, 
die die Wörter "TRUE oder "FALSE negiert. 


. Erstelle ein Prüfwort, das die eingegebene Liste überprüft, ob sie aus 


einem Wort, einer leeren Liste und einer fünfelementigen Liste besteht. 
Benutze hierzu den logischen Operator AND in Verbindung mit runden 
Klammern. Nach AND müssen alle drei Prüfungen der Reihe nach 
angeführt werden. AND entspricht dem logischen UND. 


. Untersuche die Operation AND (und entsprechend OR), wann sie 


abhängig von ihren zwei Eingaben als Ergebnis "TRUE oder "FALSE 
liefern. 


9 
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9.1 Die Programmverzweigung 


Sämtliche Programme der vorangegangenen Abschnitte sind seriell gewe- 
sen. Jede einzelne Anweisungszeile ist schön der Reihe nach ausgeführt 
worden. Doch es gibt häufig Bedingungen, von denen etwas abhängig ist. 
Bilden wir nur einige Wenn-Sätze, und schon ist alles klar. 


Wenn sie nicht gestorben sind, 
dann leben sie noch heute. 
Wenn im Zeugnis Fünfer sind, 
dann gibt es Ärger, 
sonst nicht. 
Wenn meine Freundin kommt, 
dann freue ich mich, 
sonst suche ich mir eine neue. 
Wenn der Brief bis zu 20 Gramm wiegt, 
dann kostet er 80 Pfennig Porto, 
sonst mehr. 


Statt «Wenn» könnte man auch «Falls» und statt «Sonst» auch «Andern- 

falls» wählen. Im Englischen treten hierfür die Worte ein: 

IF (Bedingung) 
THEN Anweisungen für den Wahr-Fall (Ja-Zweig) 
ELSE Anweisungen für den Falsch-Zweig (Nein-Fall) 

Liegt nur der Wahr-Fall vor, spricht man von einer einseitigen Pro- 
grammverzweigung. Im anderen Fall spricht man von einer zweiseitigen 
Programmverzweigung. 

In Logo finden wir die Wörter IF, THEN, ELSE wieder. Die hier 
benutzte Logoversion benötigt nur das Wort IF. THEN und ELSE sind 
überflüssig. Nach der Bedingung ist entweder eine Anweisungsliste oder 
noch eine zweite Liste für den Nein-Fall erforderlich. 
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Die jeweilige Bedingung nach IF muß entweder ”TRUE oder ”FALSE 
sein. Natürlich können wir auch Prüfwörter nehmen wie in Kapitel 8. 
Betrachten wir die folgenden Beispiele. Abhängig von der Uhrzeit druckt 
GRUESSEN eine tageszeitübliche Begrüßung aus: 


TO GRUESSEN :TAGESZEIT 
IF :TAGESZEIT > 18 [OP [GUTEN ABEND]] 


IF :TAGESZEIT > 12 [OP [GUTEN TAG1]I [OP [GUTEN MORGEN]] 
END 


?PR GRUESSEN 11.59 
GUTEN MORGEN 


?PR GRUESSEN 14 
6UTEN TAG 


?PR GRUESSEN 18.01 
GUTEN ABEND 


Das nächste Beispiel untersucht, ob der eingegebene Buchstabe ein 
Vokal ist. Als Ergebnis wird ein Kommentar gedruckt: 


TO EINVOKAL? :BUCHSTABE 
IF NOT WORDP :BUCHSTABE [OP LFALSCHE EINGABE, 
DU PENNER !)) 


IF MEMBERP :BUCHSTABE [A E 1 0 U] [OP SE :BUCHSTABE 
LIST EIN VOKALII 


LOP SE :BUCHSTABE LIST KEIN VOKALI)I 
END 


?PR EINVOKAL? LICH]I 
FALSCHE EINGABE, DU PENNER 1!!! 


?PR EINVOKAL? "ICH 
ICH IST KEIN VOKAL 


?PR EINVOKAL? "I 
1 15T EIN VOKAL 


VERZWEIGUNG soll uns verdeutlichen, daß wir natürlich nicht nur auf 
einzelne Anweisungen verzweigen können, sondern auch in der Verzwei- 
gung andere Programme aufrufen können. 
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TO VERZWEIGUNG :OBJEKT 

IF LISTP :0OBJEKT [PROGRAMMI :OBJEKT] LPROGRAMM2Z 
OBJEKT] PROGRAMM3 

END 


TO PROGRAMM1 :LISTE 

PR LICH VERARBEITE LISTEN) 

PR <SE [WAS GESCHIEHT MIT:] :LISTE "?) 
END 


TO PROGRAMM2 :WORT 
PR SE LICH VERARBEITE DAS WORT:) :WORT 
END 


TO PROGRAMM3 
PR {ICH BIN DER REST VON VERZWEIGUNG] 
END 


?VERZWEIGUNG EHALLIHALLOI 
ICH VEARBEITE LISTEN 

WAS GESCHIEHT MIT HALLIHALLO ? 

ICH BIN DER REST VON VERZWEIGUNG 


?VERZWEIGUNG "WOERTCHEN 
ICH VERARBEITE DAS WORT: WOERTCHEN 
ICH BIN DER REST VON VERZWEIGUNG 


Im nächsten Beispiel wollen wir einmal ein schon bekanntes selbstdefi- 
niertes Prüfwort benutzen und in die Verzweigung erneut eine Verzweigung 
einbauen. 

Man muß bei diesen Klammerkonstruktionen schon genau hinsehen, da 
leider die fehlenden Wörter THEN und ELSE einem das Lesen nicht 
erleichtern. Nach der Bedingung LISTP :OBJ kommen zwei Listen. Wir 
haben also eine zweiseitige Verzweigung. In den JA-Zweig ist die Abfrage 
mit dem Prüfwort 3ELEMENTIG eingebaut. 


TO VERZWEIGUNG :O0BJ 

IF LISTP :0BJ LIF 3ELEMENTIG :0BJ LPROGRAMMI 
:0B8J1) LPROGRANMM2)J PROGRAMM3 

END 


TO 3ELEMENTIG :LISTE 
OUTPUT 3 = COUNT :LISTE 
END 


TO PROGRAMM1 :LISTE 

PR LICH BEARBEITE DREIELEMENTIGE LISTE) 
PR <SE [WAS GESCHIEHT MIT] :LISTE "?) 
END 
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TO PROGRAMM2 
PR LICH BIN DER NEIN - ZWEIG) 
END 


TO PROGRAMM3 
PR LICH BIN DER REST VON VERZWEIGUNG] 
END 


?VERZWEIGUNG "WAS? 
ICH BIN DER NEIN - ZWEIG 
ICH BIN DER REST VON VERZWEIGUNG 


WWERZWEIGUNG [WIE BITTE] 
ICH BIN DER REST VON VERZWEIGUNG 


?VERZWEIGUNG [WER IST DA] 
ICH BEARBEITE DREIELENENTIGE LISTE 

WAS GESCHIEHT MIT WER IST DA ? 

ICH BIN DER REST VON VERZWEIGUNG 


Im letzten Beispiel wollen wir eine Datenprüfung per Programm vorneh- 
men. Zulässig sind nur Wörter, die mit einem Konsonanten anfangen. Alle 
Fehler, das heißt falsche Daten, sollen zu einem Fehlerkommentar führen 
und den weiteren Programmablauf der Prüfroutine an der jeweiligen Stelle 
beenden. Mit DATENCHECK werden noch einmal die Logoprüfwörter 
wiederholt. Wenn eine Bedingung zutrifft (Wahr-Fall), liefert das nachfol- 
gende OUTPUT den Fehlerkommentar ab. Das Abliefern von Werten mit 
OUTPUT bedeutet zwangsläufig, daß damit auch das Programm beendet 
ist. 


TO DATENCHECK :0OBJ 

IF LISTP :OBJ LOP [LISTE UNZULAESSI1GI) 

IF NUMBERP :OBJ LOP TZAHL UNZULAESSIG]I]I 

IF EMPTYP :0OBJ [OP LLEERWORT UNZULAESSIGI]I 

IF MEMBERP FIRST :OBJ [A E 1 O0 U] [OP [VOKAL AM ANFANG] 
OP SE [ALLES OKAY MITI :0BJ 

END 


?PR DATENCHECK "ALSO 
VOKAL AM ANFANG 


?PR DATENCHECK 9871 
ZAHL UNZULAESSIG 


?PR DATENCHECK [UND JETZT ?] 
LISTE WNZULAESSIG 
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?PR DAÄTENCHECK " 
LEERWORT LNZULAESSIG 


?PR DATENCHECK "NANA 
ALLES OKAY MIT NANA 


Weiter oben haben wir schon festgestellt, daß bei zweiseitigen Pro- 
grammverzweigungen die Lesbarkeit der Anweisungszeile besser sein 
könnte. Logo bietet hierzu eine Möglichkeit. Statt IF verwendet man TEST 
und überprüft die Bedingung. Das Ergebnis ("TRUE oder ”FALSE) merkt 
sich der Computer. Unmittelbar nach der Anweisungszeile mit TEST 
schreibt man dann die JA-Verzweigungszeile, der unmittelbar das Wort 
IFTRUE (IFT) vorangestellt sein muß. Die Anweisungszeile mit dem Nein- 
Zweig muß mit IFFALSE (IFF) beginnen. Mit dieser Möglichkeit lassen 
sich «lange IF-Anweisungen» übersichtlicher gestalten. Am Beispiel des 
schon bekannten EINVOKAL? sehen wir uns diese Alternative einmal an. 


TO EINVOKAL? :BUCHSTABE 

TEST NOT WORDF :BUCHSTABE 

IFTRUE [OP LFALSCHE EINGABE, DU PENNER !]] 
TEST MEMBERP :BUCHSTABE [A E 1 0 U) 

IFTRUE [OP SE :BUCHSTABE LIST EIN VOKALI]I 
IFFALSE [OP SE :BUCHSTABE LIST KEIN WOKALI]I 
END 


9.2 Der STOP-Befehl 


Dieser neue Befehl soll an zwei Beispielen demonstriert werden. In dem 
schon bekannten GRUESSEN haben wir für OUTPUT den Befehl PRINT 
eingesetzt. Was ändert sich? Testen wir es: 


TO GRUESSEN :TAGESZEIT 

IF :TAGESZEIT > 18 [PR [GUTEN ABEND)) 

IF :TAGESZEIT > 12 LPR [GUTEN TAG]JJ LPR [GUTEN 
MORGEN]] 

END 


?GRUESSEN 19.07 
GUTEN ABEND 
6UTEN TAG 
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Die Bedingung in der ersten Anweisungszeile trifft zu. Es ist später als 
18.00 Uhr, und es wird mit «Guten Abend» gegrüßt. Damit wäre eigentlich 
das Programm zu Ende. Doch es wird die Folgezeile ausgeführt und «Guten 
Tag» gesagt. In diesen Fällen hilft der STOP-Befehl. An der vom Program- 
mierer festgelegten Stelle wird vom STOP-Befehl das Programm abgebro- 
chen (beendet). GRUESSEN muß also lauten: 


TO GRUESSEN :TAGESZEIT 
IF :TAGESZEIT > 18 [PR [GUTEN ABENDI STOP]I 
IF :TAGESZEIT > 12 ELPR [GUTEN TAG]1]I LPR [GUTEN MORGEN]] 


?GRUESSEN 19.07 
GUTEN ABEND 


In gleicher Weise stellen wir noch einmal ein geändertes DATEN- 
CHECK vor. Auch hier sind PRINT-Befehle anstelle von OUTPUT einge- 
setzt worden. Da die STOP-Befehle nach jeder Verzweigung fehlen, mek- 
kert dieses Prüfprogramm auf der einen Seite, findet aber zum Schluß die 
Daten doch noch gut. 


TO DATENCHECK :0BJ 

IF LISTP :OBJ [PR [LISTE UNZULAESS1G)) 

IF NUMBERP :O0BJ [PR [ZAHL UNZULAESSIG]I] 

IF EMPTYP :0OBJ [PR ILLEERWORT UNZULAESSIG)])I 

IF MEMBERP FIRST :0OBJ [A E 1 O0 U] [PR [VOKAL AM ANFANG]I] 
PR SE [ALLES OKAY MIT]I :0BJ 


?DATENCHECK LICH BIN EINE LISTE)I 
LISTE WNZULAESSIG 
ALLES OKAY NIT ICH BIN EINE LISTE 


?DATENCHECK 9871 
ZAHL UNZULAESSIG 
ALLES OKAY MIT 9871 


?DATENCHECK [A B C] 
LISTE WNZULAESSIG 

VOKAL AM ANFANG 

ALLES OKAY MITA BC 


TO DATENCHECK :0OBJ 

IF LISTP :OBJ [PR [LISTE UNZULAESSIGI STOP] 

IF NUMBERP :O0BJ [PR LZAHL UNZULAESSIG]I STOP] 

IF EMPTYP :0OBJ EPR I[LEERWORT UNZULAESSIGI STOP) 
IF MEMBERP FIRST :0BJ [A E’I O0 U] [PR [VOKAL AM 
ANFANG] STOPI 

PR SE [ALLES OKAY MIT] :0BJ 

END 
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?DATENCHECK "ALSO 
VOKAL AM ANFANG ö 


?DATENCHECK [LISTE] 
LISTE WNZULAESSIG 


9.3 
Programme rufen sich selbst — jetzt aber kontrolliert 


?UNTER "GESTERN 


zamam-domo 


?UNTER LICH WAR DA] 
ICH 
WAR 
DA 


UNTER ist also ein Druckprogramm, das die Buchstaben eines Wortes 
oder die Elemente einer Liste untereinander ausdruckt. Sehen wir uns 
diesen Zweizeiler an: 


TO UNTER :OBJ 

IF EMPTYP :OBJ [STOP] 

PRINT FIRST :O0BJ UNTER BF :0OBJ 
END 


Besprechen wir das Programm zeilenweise. Nach TO folgt wie üblich der 
Funktionsname und eine Funktionseingabe (:OBJ). Die Eingabe kann ein 
Wort oder auch eine Liste sein. 

In der ersten Anweisungszeile finden wir eine Abbruchbedingung. Falls 
die Programmvariable :OBJ nur das leere Wort (”) oder die leere Liste ([]) 
enthält, soll das Programm beendet werden. Die zweite Anweisungszeile 
veranlaßt einmal, daß das erste Element der Programmvariablen gedruckt 
werden soll (PR FIRST :OBJ). Ja, und danach ruft sich UNTER selber auf. 
Aber Achtung, diesmal ist der Wert für die Eingabe geändert, nämlich die 
alte Eingabe ohne den ersten Buchstaben oder das erste Listenelement (BF 
:OBJ). Das ist ein kleiner, aber wirkungsvoller Weg. 
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Die sich ändernden Eingabewerte von UNTER sollen noch einmal am 
folgenden Beispiel illustriert werden. In dem Test wird jeweils die Eingabe 
für UNTER mitprotokolliert, so daß wir leicht sehen, wie sich durch das BF 
:OBJ die Eigaben beim jeweils neu aufgerufenen UNTER ändern. 


UNTER "GESTERN 
UNTER GESTERN 
6 
UNTER ESTER 
E 
TER STERN 


UNTER TERN 


INTER ERN 


Als zweites Beispiel sehen wir uns SPIEGELN an. Eingegebene Wörter 
sollen rückwärts geschrieben werden: 


TO SPIEGELN :WORT 

IF EMPTYP :WORT LSTOP]I 

TYPE LAST :WORT SPIEGELN BL :WORT 
END 


?SPIEGELN "KASFERLETHEATER 
RETAEHTELREPSAK ? 


Die nächsten Fälle haben zwei Eingaben. NWEG soll eine vorgegebene 
Anzahl von Elementen von dem eingegebenen Objekt vorne wegnehmen. 
Die Wirkungsweise von BUTFIRST ist ja nichts Neues. Mit jedem neuen 
BUTFIRST wird ein weiteres Element abgetrennt. Die Zahl : ANZAHL 
bestimmt, wie oft BUTFIRST ausgeführt werden soll, beziehungsweise wie 
viele Elemente entfernt werden sollen. Jeder neue Aufruf von NWEG führt 
zu einer Änderung der Eingaben. Da vom Objekt das erste Element 
entfernt worden ist, muß somit im weiteren Verlauf auch ein Buchstabe 
weniger abgetrennt werden, das heißt, die notwendige Anzahl vermindert 
sich um 1 : ANZAHL - 1). 
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TO NWEG :CBJ :ANZAÄHL 

IF :ANZAHL = 0 [PR :0BJ STOP] 
NWEG BF :0BJ :ANZAHL - i 

END 


?7NWEG "AMSELFELDER 3 
ELFELDER 


?NWEG [WARUM NUR WARUM IST ALLES WEG) 4 


ALLES WEG 


Betrachten wir erneut unsere Ablaufprotokollierung. Deutlich sehen wir, 
daß mit jedem Aufruf das Wort ”IMMERHIN um einen Buchstaben 
gekürzt wird und sich die Anzahl entsprechend um Eins vermindert. Wenn 
die Anzahl 0 erreicht ist, wird das eingegebene Wort (hier ”IN) ausge- 
druckt. 


AEG "IMMERHIN 6 
NMEG IMMERKIN & 
NMEG MERHIN 5 
NMEG MERHIN 4 
NWEG ERHIN 3 
NWEG RHIN 2 
NMEG HIN 1 
NMEG IN 0 
IN 


Das Programm NTES arbeitet entsprechend und muß wohl nicht weiter 
erklärt werden. 


TO NTES :0BJ :STELLE 

IF :STELLE = 1 [PR FIRST :0OBJ STOP] 
NTES BF :O0OBJ :STELLE - i 

END 


?NTES "WASSERBALL 7 
B 


?NTES [WIR SIND NICHT DA] 3 
NICHT 


Das Quersummenprogramm enthält einen kleinen Trick. Zum Aufsum- 
mieren benötigen wir ja einen Speicher. Wir müssen jeweils die neue Ziffer 
zum alten Summenwert dazuaddieren. Schleppen wir einfach diesen not- 
wendigen Speicher als Funktionseingabe mit (:SUMME). Beim Aufruf von 
QUERSUMME muß natürlich :SUMME den Wert O haben. 
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TO QUERSUMME :ZAHL :SUMME 
IF EMPTYP :ZAHL [PR :SUMME STOPI 
QUERSUMME BF :ZAHL :SUMME + FIRST :ZAHL 


END 


? 
?QUERSUMME 98723 0 
29 


?QUERSUMME 0 0 
0 


NMAL.DRUCKEN arbeitet ähnlich wie NWEG oder NTES. :N zählt 
die Anzahl der Vorgänge mit. Wird Null erreicht, wird mit STOP beendet. 


TO NMAL.DRUCKEN :WAS :N 
IF :N= 0 [STOP] 
TYPE :WAS NMAL.DRUCKEN :WAS ıN — 1 


END 


?NMAL .DRUCKEN "$ 20 
4999999999999999399$ 


?NMAL .DRUCKEN "HAHIHA 4 
HAHIHAHAHTHAHAHIHAHAHI HA 


NMAL.PROG enthält etwas Neues. Eigentlich ist es gleich mit NMAL- 
‚DRUCKEN. Für :WAS wird hier nur ein Programmname mit seinen 
Eingaben beim Aufruf eingegeben. :WAS muß eine Liste sein. Erst wenn 
diese Liste (:WAS) zur Eingabe des Befehls RUN wird, kommt der Inhalt 


von :WAS zur Ausführung. 


TO NMAL.PROG :WAS :N 
IF :N= 0 [STOP] 
RUN :WAS NMAL.PROG :WAS :N — 1 


END 


?NMAL.PROG [NWEG [WER IST DA ?1 2) 4 
mM? 
RM? 
m? 
DA? 
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NMAL.PROG ist uns schon lange in Form des REPEAT-Befehls be- 
kannt. Sagen wir doch statt NMAL.PROG besser WIEDERHOLE und 
tauschen wir die beiden Programmvariablen gegeneinander aus. Wir erhal- 
ten dann die deutschsprachige Version des REPEAT-Befehls, den wir 
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?NMAL.PROG LUNTER [WER IST DA) 3 


WER 


?NMAL.PROG [SPIEGELN "SALATI 5 
TALASTALASTALASTALASTALAS ? 


selbst definiert haben. 


Abschließend wollen wir uns etwas mit der Zeugnisschreibung befassen. 
Für bestimmte Fächer sollen die entsprechenden Noten nicht als Ziffer, 
sondern als Text ausgegeben werden. Nehmen wir die übliche Notenskala 


TO WIEDERHOLE :N :WAS 

IF :N= 0 [STOP]I 

RUN :WAS WIEDERHOLE :N - 1 :WAS 
END 


MWIEDERHOLE 3 [NWEG "GESTERN 2] 
STERN 
STERN 
STERN 


?WIEDERHOLE 3 [LWIEDERHOLE 2 [PR 


HEI! 
HEI! 
HEI! 
HEI! 
HEI! 
HEI! 


mit den Noten von sehr gut bis ungenügend. 


Das Programm MINIZEUGNIS soll Noten ausdrucken, die als Zahlen in 
einer Liste vorgegeben werden. Die zweite Zeile ist uns schon recht 
vertraut. NTES haben wir in Abschnitt 7.4 in der Form NTES.ELEMENT 
kennengelernt, doch hier ist NTES keine Operation, sondern letztlich ein 


"HEI!]J] 


Druckbefehl. NOTENSKALA definiert uns die Liste mit Daten. 


Zwei wichtige Kontrollwörter 107 


TO MINIZEUGNIS :NOTEN 

IF EMPTYP :NOTEN [STOPI 

NTES NOTENSKALA FIRST :NOTEN 
MINIZEUGNIS BF :NOTEN 

END 


TO NOTENSKALA 
OP LSEHR GUT GUT BEFRIEDIGEND AUSREICHEND MANGELHAFT UNGENUEGEND) 
END 


TO NTES :08J STELLE 

IF :STELLE = 1 [PR FIRST :0BJ STOP] 
NTES BF :0BJ :STELLE - 1 

END 


?MINIZEUGNIS [6 1 5234 2] 
UNGENUEGEND 

SEHR GUT 

MANGELHAFT 

sur 

BEFRIEDIGEND 

AUSREICHEND 

6uT 


Wir brauchten MINIZEUGNIS nur um die Eingabe :FAECHER zu 
erweitern und in der zweiten Programmzeile zusätzlich das erste Element 
von :FAECHER drucken lassen, schon wäre unser Zeugnisprogramm 
erledigt: 


TO ZEUGNIS :NOTEN :FAECHER 

IF EMPTYF :NOTEN [STOP] 

TYFE FIRST :FAECHER 

NTES NOTENSEALA FIRST :NOTEN 
ZEUGNIS BF :NOTEN EF :FAECHER 
END 


?ZEUGNIS [& 1 2] [BIO DEUTSCH MATHE) 
BIOUNGENUEGEND 

DEUTSCHSEHR GUT 

MATHEGUT 


Der Test zeigt, daß ein kleiner Schönheitsfehler vorliegt. Die Noten 
müßten weiter rechts stehen und die Anfangsbuchstaben sollen genau 
untereinander stehen. Wir müßten eine Schreibstelle vorgeben, ab der in 
jeder Zeile das Fach geschrieben werden soll. Solch eine Tabulatorfunktion 
ist TAB: 
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TO TAB :STELLE 
IF FIRST CURSOR = :STELLE [STOP] 


TYPE " 
TAB :STELLE 
END 


Die Funktionseingabe ist die gewünschte Schreibstelle, die zwischen 1 
und 40 liegen kann. Die Logofunktion CURSOR liefert die augenblickliche 
Position des Cursors auf dem Bildschirm. CURSOR liefert eine zweiele- 
mentige Liste. Das erste Element gibt die Schreibstelle der betreffenden 
Zeile an (Spalte) und das zweite Element die Zeilennummer. TAB druckt 
so lange ein Leerzeichen aus, bis die gewünschte Schreibstelle erreicht ist. 

Fügen wir schnell TAB in unserem Programm ein und testen wir es: 


TO ZEUGNIS :NOTEN :FAECHER 

IF EMPTYF :NOTEN [STOP] 

TYFE FIRST :FAECHER TAB 15 
NTES NOTENSEALA FIRST :NOTEN 
ZEUGNIS BF :NOTEN BF :FAECHER 


END 

?ZEUGNIS [4 1 213 [BIO DEUTSCH MATHE] 
BIO UNGENUEGEND 

DEUTSCH SEHR 6UT 

MATHE 6uT 


9,4 Zusammenfassung und Übungen 


1. Serielle Programme sind solche, bei denen die einzelnen Anweisungen 
der Reihe nach durchlaufen werden. Keine der Anweisungszeilen wird 
ausgelassen. Mit Kontrollwörtern können bestimmte Programmteile an- 
gesteuert oder Abbruchbedingungen vorgesehen werden. 

2. Man unterscheidet einseitige oder zweiseitige Programmverzweigungen. 
Die Kontrollwörter hierzu lauten FALLS... DANN... SONST... Im 
Englischen lauten sie IF... THEN... ELSE... Nach IF muß immer ein 
Prüfwort (eine Bedingung) folgen, das entweder wahr oder falsch 
(TRUE/FALSE) ist. Im Wahrfall werden nur die Anweisungen nach 
dem Wort THEN ausgeführt. Im Nichtwahrfall werden die Anweisungen 
nach dem Wort ELSE ausgeführt. In der hier benutzten Logoversion 
werden THEN und ELSE weggelassen, und die beiden Zweige sind 
einfach in eckige Klammern gesetzt. 


w 


p 


a 


a 
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. Zur besseren Übersichtlichkeit kann man zweiseitige Programmverzwei- 


gungen mit den Logowörtern TEST, IFTRUE und IFFALSE erstellen. 


. Die STOP-Anweisung beendet jedes Programm an beliebigen vom Pro- 


grammierer vorgesehenen Stellen. 


. Mit der IF-Anweisung und der STOP-Anweisung lassen sich Selbstauf- 


rufprogramme gut kontrollieren. Der Ablauf solcher Programme wird 
gesteuert, indem ein Eingabewert jeweils mit dem neuen Selbstaufruf 
geändert wird. Wird der Eingabewert zur leeren Liste, dem leeren Wort 
oder zur Ziffer ©, so bricht STOP das Programm an dieser Stelle ab. 


. RUN ist ein Befehl, der eine Liste als Eingabe verlangt. Anschaulich ist 


diese Liste mit einer eingetippten Anweisungszeile zu vergleichen. RUN 
führt die Anweisungen der Zeile aus. 


Neue Logovokabeln: 


IF 
TEST 
IFTRUE (IFT) 
IFFALSE (IFF) 
STOP 
RUN 
CURSOR 
Aufgaben 
1. Erstelle eine Operation, die von zwei 5 7 
eingegebenen Zahlen die jeweils größe- Y 4 
re liefert. MAX 
v 
7 
2. Erstelle eine Operation unter Verwen- 2 4 112 
dung von Aufgabe 1, die von vier einge- \Yııh 
gebenen Zahlen die größte ermittelt. MAXA4 
J 
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. Erstelle die Aufgabe 1 unter Benutzung der Logowörter TEST, IFTRUE 


und IFFALSE. 


. Erstelle eine Operation, die den Wurf 
einer Münze simuliert und als Ergebnis \ 
das Wort ”KOPF oder "ZAHL liefert. »KOPF 

. Erstelle ein Prüfwort, das untersucht, -1 
ob die eingegebene Zahl positiv ist. Be- J 
nutze beide Möglichkeiten zum Formu- 
lieren von Programmverzweigungen \ 
(mit IF und TEST). »FALSE 


. Erstelle ein Programm WERTETABELLE, das die bekannte Operation 


POLYNOM2 benutzt, um für den angegebenen Bereich der X-Werte 
eine Wertetabelle auszugeben. 


. Ändere das Programm DREH aus Abschnitt 5.3 so, daß die Anzahl der 


Aufrufe vorgegeben wird. 


. Lasse ein Quadrat (oder eine beliebige andere geometrische Figur), 


dessen Größe variabel ist, eine kontrollierte Anzahl von Drehungen 
machen. 


10 
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10.1 Brüder helfen sich 


Bisher haben alle unsere Selbstaufrufprogramme (Rekursionen) immer 
Befehlscharakter gehabt, da sie Druckbefehle, Grafikbefehle oder den 
REPEAT-Befehl beinhalteten. Als Operationen haben wir bisher solche 
Selbstaufrufprogramme nicht definiert. Erinnern wir uns an die Kapitel 7 
und 8. Dort haben wir die Vorteile von Operationen und ihren grundsätzli- 
chen Aufbau kennengelernt. OUTPUT muß immer dabei sein, da ja die 
Ergebnisse abgeliefert werden und von anderen Operationen oder Befehlen 
als Eingaben benutzt werden. Dadurch lassen sich Operationen mit großer 
Wirkung verketten. 

Wie können wir also die rekursiven Druckprogramme des vorherigen 
Kapitels umdefinieren? Besprechen wir zuerst die bekannten Programme 
SPIEGEL, NWEG und QUERSUMME. Wären diese Programme rekursi- 
ve Operationen, so sähe ihre Benutzung wie folgt aus: 


?PRINT SPIEGEL "GESTERN 
NRETSEG 


?PRINT NWEG "GESTERN 2 
STERN 


?PRINT QUERSUMME 987% 
„0 


?PRINT SPIEGEL SPIEGEL "GESTERN 
GESTERN 


?PRINT SPIEGEL NWEG "GESTERN 2 
NRETS 


?PRINT QUERSUMME NWEG "12345 3 
9 
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Damit müßte unser Ziel deutlich geworden und der Charakter der 
Operation noch einmal aufgezeigt sein. Im Prinzip wissen wir, daß die 
Druckbefehle nicht mehr sein dürfen und der Lieferant OUTPUT mit von 
der Partie ist. Sehen wir uns das neue SPIEGEL einmal an: 


TO SPIEGEL :WORT 

IF EMPTYP :WORT [OUTPUT " ] 

OUTPUT WORD LAST :WORT SPIEGEL BL :WORT 
END 


Betrachten wir den Kern der Rekursion, die zweite Anweisungszeile. 
Der Druckbefehl TYPE ist verschwunden. Das Erscheinen von OUTPUT 
ist keine Überraschung. Der Selbstaufruf mit der Eingabe BL : WORT 
verwundert auch nicht mehr. Warum taucht aber noch WORD auf? Versu- 
chen wir eine Erklärung, da wir die Rekursion weiter unten noch sehr viel 
exakter untersuchen werden. 

Das alte SPIEGEL hat genau einen Buchstaben - nämlich den letzten der 
Eingabe - ausgedruckt. Die Eingabe wurde um den letzten Buchstaben 
gekürzt und das gleiche wiederholte sich. 

Das neue SPIEGEL kann ja den letzten Buchstaben nicht einfach 
vergessen, sondern soll ihn ja als Teil des Gesamtergebnisses abliefern. 
Daher wird das einzelne Zeichen mittels WORD zu einer Buchstabenkette 
zusammengefügt. Statt zu drucken, reiht das Programm die Zeichen anein- 
ander. Die Abbruchbedingung muß ebenfalls ein OUTPUT vorweisen und 
etwas abliefern (hier das leere Wort). 

Sehen wir uns einmal mittels eines eingebauten Ablaufverfolgers an, wie 
sich mit jedem neuen Aufruf von SPIEGEL die Eingaben ändern und was 
jeweils mit OUTPUT geliefert wird. 
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?PR SPIEGEL "GESTERN 
SPIEGEL HAT ALS EINGABE: GESTERN 
SPIEGEL HAT ALS EINGABE: GESTER 
SPIEGEL HAT ALS EINGABE: GESTE 
SPIEGEL HAT ALS EINGABE: GEST 
SPIEGEL HAT ALS EINGABE: GES 
SPIEGEL HAT ALS EINGABE: GE 
SPIEGEL HAT ALS EINGABE: G 
SPIEGEL HAT ALS EINGABE: 
SPIEGEL LIEFERT MIT OUTPUT: 
SPIEGEL LIEFERT MIT OUTPUT: G 
SPIEGEL LIEFERT MIT OUTPUT: EG 
SPIEGEL LIEFERT MIT OUTPUT: SEG 
SPIEGEL LIEFERT MIT OUTPUT: TSEG 
SPIEGEL LIEFERT MIT OUTPUT: ETSEG 
SPIEGEL LIEFERT MIT OUTPUT: RETSEG 
SPIEGEL LIEFERT MIT OUTPUT: NRETSEG 
NRETSEG 


Deutlich erkennen wir, daß mit jedem neuen Aufruf von SPIEGEL der 
letzte Buchstabe der Eingabe eliminiert worden ist. Das vorhergehende 
SPIEGEL hat das ja jeweils in seinem Aufruf mit BUTFIRST gemacht. 
Jedes der aufgerufenen Programme macht dann immer dasselbe und holt 
sich den letzten Buchstaben seiner Eingabe. Diesen ermittelten Buchstaben 
verbindet es dann zu einem Wort mit dem Ergebnis von dem neu aufgerufe- 
nen SPIEGEL und seiner geänderten Eingabe. Alle SPIEGEL-Programme 
müssen einen Augenblick warten, bis sie tatsächlich etwas geliefert bekom- 
men und endlich die zweite Eingabe für ihr WORD bekommen. Sehen wir 
uns jetzt an, was jeder SPIEGEL-Aufruf als Ergebnis an das rufende 
Programm abliefert. 

Der achte SPIEGEL-Aufruf hat als Eingabe das leere Wort und liefert als 
Ergebnis das leere Wort. Der siebente SPIEGEL-Aufruf liefert als Ergeb- 
nis den Buchstaben G ab. Als letztes bekommt der erste SPIEGEL-Aufruf 
das gespiegelte Ergebnis vom zweiten Aufruf und kann endlich das Wort 
aus ”N und ”RETSEG mit OUTPUT abliefern. Ja, und "”NRETSEG wird 
die Eingabe für den PRINT-Befehl, der dann ”NRETSEG ausdruckt. 

Also diese rekursiven Operationen haben es doch in sich. Das muß man 
sich schon genauer ansehen, um es wirklich zu verstehen. Wir wollen in 
einer zweiten Erklärung den Zusammenhang noch anschaulicher aufzeigen. 
Wir wollen so tun, als wäre jedes SPIEGEL-Programm ein hilfreiches 
kleines Kerlchen, das um Hilfe rufen kann und sich vor der Arbeit zu 
drücken weiß, hören kann und innerhalb der Verwandtschaft mithilft bei 
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der Arbeit. Von diesen kleinen Knirpsen gibt es viele, viele Brüder. Und 
damit sind wir schon am Anfang unserer «Theorie der kleinen Brüder». 
Stellen wir gleich mal einen dieser kleinen Bürschchen vor: 


au_ -- 7.27 
BN- 
\> Pa 


= 


Die gestrichelten Linien deuten Schallwellen an und belegen seine Hörfä- 
higkeit, so daß er auf Hilferufe reagieren kann. Die beiden Denkblasen 
zeigen uns seine Überlegungen. Die rechte Sprechblase beinhaltet den 
jeweiligen Hilferuf. Eine Hand streckt er jeweils weit aus, um die Antwort 
auf seinen Hilferuf hier auf die Hand zu bekommen. 

Bevor wir die vielen Brüder loslegen lassen, wollen wir doch noch einmal 
die Fähigkeiten solch eines einzigen Kerlchens zusammenstellen und seine 
kleine Arbeitswelt aufzeigen: 
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Was er erhält: Den jeweils eingegebenen Wert für :WORT 
Was er kann: - ein leeres Wort erkennen 
- LAST :WORT bilden 
- BL :WORT bilden 
- einen Hilferuf formulieren 
— mittels WORD zwei Eingaben verbinden 
— das Ergebnis seiner Bemühungen an den rufenden 
Bruder zurückgeben. 
Betrachten wir im folgenden die vier Brüder, die den Auftrag per 
Lautsprecheransage (PRINT hat gerufen und wartet auf das Ergebnis von 
SPIEGEL ”REH) erhalten haben. 


"REH als 
Eingabe ist kein leeres Wort! 

Also FIRST:WORT bilden und 
um Hilfe rufen! 


Und danrı noch H 
mit Ergebnis vom 
Hilferuf verbinden 
und abliefern 


Die Eingabe "R ist nicht 
leer. Also erst mal den 

letzten Buchstaben holen 
und den Bruder rufen. 


Zum Schluß noch R 
mit Ergebnis vom 

Hilferuf zusammen- 
setzen und ab- 
liefern. 


Die Eingabe ist das leere 


ist schon erledigt. 
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"RE als 
Eingabe ist kein leeres Wort. 

Also LAST :WORT bilden und 
dann um Hilfe bitten. 


Und dann noch E 
mit Ergebnis vom 
Hilferuf verbinden 
und abliefern. 


”, Meine Arbeit 


Ich gebe an 
meinen Bruder 
als Ergebnis 

” zurück! 
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Der vierte Bruder bekommt als Hilferufe vom dritten Bruder eine ganz 
simple Aufgabe, nämlich SPIEGEL ” zu ermitteln. Mit dem leeren Wort als 
Eingabe ist die Endebedingung erreicht, und der vierte Bruder gibt dem 
dritten Bruder das leere Wort in die Hand. 

Der dritte Bruder nimmt das Ergebnis seines Hilferufs und verbindet es 
mit dem vorher ermittelten Buchstaben R. An den zweiten Bruder liefert er 
seine Arbeit ab. Der zweite Bruder erhält also genau das Wort ”R auf die 
Hand. 

Der zweite Bruder verbindet mittels WORD den Buchstaben E mit dem 
Wort ”R zum neuen Wort ”ER, das er freudig dem ersten Bruder in die 
Hand gibt. 

Ja, und der erste Bruder bildet ein neues Wort aus dem Buchstaben H 
und dem Wort ”ER und liefert erleichtert an PRINT das Ergebnis "HER 
ab. 

Abschließend wollen wir noch einmal das gleiche Beispiel mit dem 
Ablaufverfolger vorführen, damit deutlich wird, daß eigentlich auch hier 
das gleiche Ablaufschema dokumentiert wird. 


?PR SPIEGEL "REH 
SPIEGEL HAT ALS EINGABE: REH 
SPIEGEL HAT ALS EINGABE: RE 
SPIEGEL HAT ALS EINGABE: R 
SPIEGEL HAT ALS EINGABE: 
SPIEGEL LIEFERT MIT OUTPUT: 
SPIEGEL LIEFERT MIT OUTPUT: R 
SPIEGEL LIEFERT MIT OUTPUT: ER 
SPIEGEL LIEFERT MIT OUTPUT: HER 
HER 


Solche Rekursionen arbeiten genausogut mit Listen. Wenn SPIEGEL die 
Elemente einer Liste umdrehen soll, müssen wir nur die entsprechenden 
Logofunktionen für Listen einbauen. Nennen wir diese geänderte Version 
SPIEGELS. Der Buchstabe S am Ende soll die Abkürzung für Satz sein 
und auf die Listenversion hinweisen. 


TO SPIEGELS :SATZ 

IF EMPTYP :SATZ [OP [)) 

OP SE LAST :SATZ SPIEGELS BL :SATZ 
END 
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?PRINT SPIEGELS LICH DU ER SIE ES] 

SPIEGEL HAT ALS EINGABE: ICH DU ER SIE ES 
SPIEGEL HAT ALS EINGABE: ICH DU ER SIE 
SPIEGEL HAT ALS EINGABE: ICH DU ER 

SPIEGEL HAT ALS EINGABE: ICH DU 
SPIEGEL HAT ALS EINGABE: ICH 
SPIEGEL HAT ALS EINGABE: 

SPIEGEL LIEFERT MIT OUTPUT: 
SPIEGEL LIEFERT MIT OUTPUT: ICH 
SPIEGEL LIEFERT MIT OUTPUT: DU ICH 
SPIEGEL LIEFERT MIT OUTPUT: ER DU ICH 
SPIEGEL LIEFERT MIT OUTPUT: SIE ER DU ICH 


SPIEGEL LIEFERT MIT OUTPUT: ES SIE ER DU ICH 
ES SIE ER DU ICH 


Wir haben im Folgebeispiel SPIEGELS leicht geändert. Das jeweils 
letzte Wort der Eingabeliste wird selbst auch noch einmal umgedreht mit 


der alten Rekursion SPIEGEL. Sehen wir uns diese Operationen und ein 
Beispiel an: 


TO SPIEGELS :SATZ 
IF EMPTYP :SATZ LOP [)) 


OP SE SPIEGEL LAST :SATZ SPIEGELS BL :SA 
TZ 


END 


?PR SPIEGELS [LICH BIN NICHT DA!) 
!AD THCIN NIB HCI 


Das alte Beispiel QUERSUMME soll ebenfalls noch einmal als rekursive 
Operation gezeigt werden. Eingegeben wird immer nur die gewünschte 
Zahl, deren Ziffern dann einzeln ermittelt und mit der Logorechenopera- 
tion SUM aufaddiert werden. Endebedingung ist das leere Wort. Diesmal 


wird aber nicht das leere Wort abgeliefert, sondern die Zahl O zurückgege- 
ben. 


TO QUERSUMME :ZAHL 
IF EMPTYP :ZAHL LOUTPUT 0) 


OUTPUT SUM FIRST :ZAHL- QUERSUMME BF :ZAHL 
END 
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?PR QUERSUMME 123456 
QUERSUMME HAT ALS EINGABE: 123454 
QUERSUMME HAT ALS EINGABE: 23456 
QUERSUMME HAT ALS EINGABE: 3456 
QUERSUMME HAT ALS EINGABE: 45% 
QUERSUMME HAT ALS EINGABE: 54 
QUERSUMME HAT ALS EINGABE: 4 
QUERSUMME HAT ALS EINGABE: 
SPIEGEL LIEFERT MIT OUTPUT: 0 
SPIEGEL LIEFERT MIT OUTPUT: & 
SPIEGEL LIEFERT MIT OUTPUT: 11 
SPIEGEL LIEFERT MIT OUTPUT: 15 
SPIEGEL LIEFERT MIT OUTPUT: 18 
SPIEGEL LIEFERT MIT OUTPUT: 20 


SPIEGEL LIEFERT MIT OUTPUT: 21 
21 


Das alte NWEG wird ebenfalls noch einmal als rekursive Operation 
gezeigt: 


TO NWEG :0OBJEKT :ANZAHL 

IF :sANZAHL = 0 [OUTPUT :0OBJEKT)I 
OUTPUT NWEG BF :OBJEKT :ANZAHL - 1 
END 


Wir wollen noch zwei weitere Operationen kennenlernen. Die Operation 
FUELLER soll aus nur einem einzigen Zeichen eine Zeichenkette bilden. 
Das gewünschte Zeichen und die Anzahl der Buchstaben der Kette werden 
als Programmvariable eingegeben: 


TO FUELLER :ZCHN :ANZAHL 
IF :sANZAHL = 0 [OP * ] 


OP WORD :ZCHN FUELLER :ZCHN :ANZAHL - 1 
END 


?PRINT FUELLER "$ 15 
449994999999999 


?PRINT FUELLER "_ 20 


?PRINT FUELLER "% 15 
KISIIIERIITTLL, 


Die Operation WORTINLISTE soll uns Wörter in Listen umwandeln. 
Das einzelne Element der Liste ist jeweils ein Buchstabe des Wortes: 
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TO WORTINLISTE :WORT 
IF EMPTYP :WORT [OP L[]) 


OP SENTENCE FIRST :WORT WORTINLISTE BF :WORT 
END 


?PRINT WORTINLISTE "HEUTE 
HEUTE 


?PRINT WORTINLISTE "GESTERN 
GESTERN 


?PR COUNT WORTINLISTE "GESTERN 
? 


?PR MEMBERP "T WORTINLISTE "GESTERN 
TRUE 


?PR MEMBERP "X WORTINLISTE "GESTERN 
FALSE 


Die Rekursion WORTINLISTE ist sinnvoll, und wir könnten sie benut- 
zen, um zwei neue nützliche Operationen zu bilden. COUNTW ermittelt 
die Anzahl der Buchstaben eines Wortes, und MEMBERPW prüft, ob der 
vorgegebene Buchstabe in der Zeichenkette vorkommt. 


TO COUNTW :WORT 
OUTPUT COUNT WORTINLISTE :WORT 
END 


TO MEMBERPW :ZCHN :WORT 
OUTPUT MEBERP :ZCHN WORTINLISTE :WORT 
END 


?PR COUNTW "HANNAMARIA 
10 


?PR MEMBERPW "R "HANNAMARIA 
TRUE 


?PR COUNTW FUELLER "$ 15 

15 

?PR FUELLER "A COUNTW "HANNAMARIA 
RRRBRERER 


Weitere Beispiele können wir dem Übungsteil entnehmen. 
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10.2 Zusammenfassung und Übungen 


1. Rekursionen sind Programme, die sich selbst aufrufen. Rekursive Ope- 
rationen sind vom Benutzer erstellte Funktionen, die die Ergebnisse 
ihrer Verarbeitung mit OUTPUT abliefern. 

2. Jede rekursive Operation läßt sich im wesentlichen in drei Teile zerglie- 
dern: 

- eine Endebedingung, 
- einen Verarbeitungsteil, 
— den erneuten Programmaufruf mit geänderten Eingaben. 

3. Bei Erreichen der Endebedingung wird die Operation beendet, indem 
mit OUTPUT ein Wert abgeliefert wird. Häufig ist es das leere Wort oder 
die leere Liste, wenn Operationen mit Wörtern oder Listen stattfinden. 

4. Der Verarbeitungsteil kennzeichnet, was eigentlich gemacht werden soll, 
wenn nicht gerade die Endbedingung vorliegt. Dieser Teil ist mit dem 
erneuten Programmaufruf der Kern der Rekursion. Bei Operationen mit 
Wörtern oder Listen wird jeweils mit dem einzelnen Element des Ob- 
jekts eine Anweisung ausgeführt, die unmittelbar nach dem Logowort 
OUTPUT kommt. 

5. Der erneute Programmaufruf hat geänderte Eingabewerte. Bei Wörtern 
oder Listen wird meistens das erste Element mit BUTFIRST entfernt. 
Bei Zahlen, die die Rekursion steuern, wird meistens die Ziffer 1 
abgezogen. Dieser erneute Programmaufruf kann selbständig oder aber 
die Eingabe für eine Logofunktion sein (beispielsweise die zweite Einga- 
be für WORD). 

6. Die «Theorie der kleinen Brüder» ist eine Möglichkeit, um sich den 
Ablauf von Rekursionen zu veranschaulichen. 

7. Rekursionen laufen in der Weise ab, daß jedes aufgerufene Programm 
erst einmal die Werte ermittelt, die es bestimmen kann, und dann die 
Hilferufe formuliert. Beim Erreichen der Endebedingung werden Werte 
zurückgereicht, vom Empfänger mit den bereits ermittelten Daten zu- 
sammengesetzt und das Ergebnis wiederum an den vorangehenden Hil- 
ferufer zurückgegeben usw. 

8. Um Logofunktionen für Listen auch für Wörter anwendbar zu machen, 
kann man eine Operation erstellen, die das Wort in eine Liste umwan- 
delt. Jeder Buchstabe wird somit zu einem Element der Liste. Für diese 
Liste kann man jetzt die entsprechende Logofunktion einsetzen. 

9. Rekursive Operationen haben im Gegensatz zu rekursiven Befehlen den 
Vorteil, daß sie mit anderen Funktionen verkettet werden können. 
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Neue Logovokabeln: 


— 


ıD 


wo 


> 


in 


DD 
w 


SUM 
QUOTIENT (in Verbindung mit den Übungsauf- 
gaben) 
FPUT (in Verbindung mit den Übungsauf- 
gaben) 
Aufgaben 


. Erstelle eine rekursive Operation, die die Elemente einer Liste zu 


einem Wort (zusammenhängende Zeichenkette) wandelt. Jedes Ele- 
ment der Liste ist ein Buchstabe oder ein Wort. 


. Erstelle eine Operation, die abhängig 


von der mit einer Ziffer gekennzeich- 
neten Stelle eines Wortes oder einer 
Liste dieses Element ermittelt. 


. Erstelle eine Operation RBUEND, 


die ein eingegebenes Wort rechtsbün- 
dig mit führenden Zeichen liefert. Das 
gewünschte Zeichen ist ebenfalls ein 
Eingabewert. Benutze hierzu die 
schon bekannte Funktion FUELLER. 


Erstelle eine Operation mit Namen 
VOKALKILLER, die vom jeweils 
eingegebenen Wort die Vokale durch 
einen Punkt ersetzt. 


. Wandle Dezimalzahlen nach dem Divi- 


sionsrestverfahren in Dualzahlen um. 

Das Divisionsrestverfahren sei sche- 
matisch für die Umwandlung der Dezi- 
malzahl 43 vorgestellt: 


"GERD 3 


"Ich 10”. 
ER 


RBUEND 


ae 


VOKALKILLER 
v 
HLL. 


15 
v 


DUALZAHL 
v 
1111 


124 


ausunn 


S 


[e') 


\o 


. Schritt: 43:2 = 21 Rest 1 


Schritt: 21:2 = 10 Rest 1 
Schritt: 11:2= 5 Rest 0 
Schritt: 5:2= 2Rest1 
Schritt: 2:2= 1RestO 


6. Modifiziere das Programm für die 


Clubkarte aus Abschnitt 4.5, indem 
die Operation LBUEND benutzt wird, 
um das jeweilige Eingabedatum mit 
Leerzeichen auf 20 Stellen aufzufüllen. 


. Erstelle ein Prüfwort, das das erste 
Wort mit dem zweiten Wort vergleicht 
und prüft, ob die alphabetische Rei- 
henfolge gegeben ist. 


. Erstelle ein Prüfwort, das eine Liste 
auf mögliche leere Listenelemente un- 
tersucht. Beim Antreffen eines leeren 
Elementes soll ”FALSE ausgegeben 
werden, andernfalls "TRUE. 


. Erstelle das Programm WERTE- 
TABELLE aus Kapitel 9 als rekursive 
Operation. Jeder x-y-Wert wird als 
Zahlenpaar in eckigen Klammern zu 
einem Listenelement. 


10. Erstelle eine Ausgaberoutine für eine 


Liste mit Zahlenpaaren in eckigen 
Klammern, die Elemente einer Liste 
sind. Jede Zahlenkolonne soll rechts- 
bündig mit führenden Leerzeichen 
ausgedruckt werden. 
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. Schritt: 1:2 = 00 Rest Zn | 


101011 


”AU ”AUA 
v v 
W1.VOR.W2? 


v 
"TRUE 


[A [] B ZEH] 
\ 
KEINLEERES? 


v 
"FALSE 


11. 


12. 
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Erstelle eine Operation, die ein belie- 
biges Wort und einen alphabetisch ge- 
ordneten Satz (Liste) als Eingabe hat. 
Das Wort soll in dem Satz alphabetisch 
richtig eingefügt werden. 


Erstelle eine Operation, die die Wör- 
ter einer Liste als alphabetisch sortier- 
te Liste ausgibt. Hierzu die Ergebnisse 
der Aufgaben 9 und 7 mitbenutzen. 


”E [BCIK] 
} J 


EINFUEGE 


J 
[BCEIK] 


11 
Springe und Mache 


11.1 Der Sprungbefehl 


Der Befehl GO erlaubt uns, innerhalb eines Programms mehrere Anwei- 
sungszeilen zu überspringen. Die Einsprungstelle muß auf besondere Weise 
markiert werden. Sehen wir uns ein einfaches Beispiel an, das die Liste 
[IMMERZU DRUCKE ICH] in einer Endlosschleife unentwegt ausdruckt. 
Wir springen bei Programmende wieder auf den Programmanfang. 


TO SCHLEIFE 

LABEL "BEGINN 

PRINT LIMMERZU DRUCKE ICH] 
GO "BEGINN 

END 


Mit LABEL, gefolgt von einem Wort, wird in Programmen die Ein- 
sprungstelle markiert. Der GO-Befehl verlangt als Eingabe den Namen der 
Einsprungstelle. In den Folgeabschnitten wird eine Fülle von Beispielen 
gezeigt, die unter anderem solche Sprunganweisungen verwenden. 


11.2 Datenspeicher haben Namen und Inhalt 


Bisher haben wir Datenspeicher immer im Zusammenhang mit Funktions- 
aufrufen mit Werten gefüllt. Wir wollen Möglichkeiten kennenlernen, auch 
innerhalb einer Funktion bestimmte Objekte mit einem Namen zu versehen 
und die Objekte unter dem vergebenen Namen wieder anzusprechen. 
Anschaulich können wir uns Datenspeicher als eine Schublade vorstellen, 
wobei natürlich viele solcher Schubladen möglich sind. Zum leichten Wie- 
derfinden von Dingen hat jede Schublade auf der Stirnseite sichtbar eine 
Bezeichnung. Ziehen wir die Schublade auf, sehen wir den Inhalt. 
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NAME der Schublade INHALT der Schublade 
(Speicher - NAME) (Speicher - INHALT) 
"MONAT "JUNI 


"AUTOMARKEN [BMW VW OPEL MERCEDES FORD] 
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Die Schublade mit dem Namen "MONAT enthält das Wort "JUNI. Die 
Schublade "AUTOMARKEN enthält eine Liste mit fünf Wörtern: [BMW 
VW OPEL MERCEDES FORD]. In Logo wird solch ein Datenspeicher 
mit dem Befehl MAKE definiert. MAKE hat zwei Eingaben. 


ce N 
n,e he 
ah n. „N 
NS; 1,5;8 
e e 
de de 
R) i 


Wir sprechen in diesem Zusammenhang auch von einer Wertzuweisung. 
Der Variablen "MONAT wird das Wort "JUNI zugewiesen. Der Variablen 
"AUTOMARKEN wird eine Liste mit fünf Elementen zugewiesen. 


?MAKE "MONAT "JUNI 
?MAKE "AUTOMARKEN [BMW VW OPEL MERCEDES FORD] 


Der Inhalt einer Variablen wird wie folgt abgerufen: 


?PR THING "MONAT 

JUNI 

?PR THING "AUTOMARKEN 

BMW VW OPEL MERCEDES FORD 


?PR :MONAT 

JUNI 

?PR :AUTOMARKEN 

BMW VW OPEL MERCEDES FORD 


Die Schreibweise mit dem Doppelpunkt ist uns geläufiger und vertrauter. 
Wir wollen uns ein kleines Beispiel ansehen. Eine Funktion soll uns in der 
Variablen "LOTTOTIP sechs Zahlen für das Lottospiel 6 aus 49 liefern. 


TO LOTTOZAHLEN 

MAKE "LOTTOTIP [) 

LABEL "ANFANG 

MAKE "ZAHL SUM 1 RANDOM 49 

TEST MEMBERP :ZAHL :LOTTOTIP 

IFF [MAKE "LOTTOTIP SE :LOTTOTIP :ZAHL)I 
IF COUNT :LOTTOTIP = & L[LSTOP]) 

GO "ANFANG 

END 
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?LOTTOZAHLEN 


?PONS 
ZAHL IS 26 
LOTTOTIP 1S [31 5 15 22 29 26) 


Mit PONS (Printout Names) können wir alle im Speicher vorhandenen 
Wertzuweisungen auflisten. 

Mit dem Prüfwort NAMEP können wir feststellen, ob bereits ein Varia- 
blenname vergeben worden ist. 


?PR NAMEP "LOTTOZAHLEN 
FALSE 


?PR NAMEP "LOTTOTIP 
TRUE 


Abschließend sehen wir eine Möglichkeit, die viele Programmierspra- 
chen nicht zulassen. Wir können in Variablen die Namen von anderen 
Variablen speichern und von dieser Variablen den Inhalt ausdrucken lassen, 
ohne daß wir zwingend den Namen kennen müssen. Definieren wir zur 
Veranschaulichung drei Variable mit ihren Inhalten und listen wir sie mit 
PONS auf. Im Speicher sind noch zwei Variable vom vorherigen Pro- 
gramm. Löschen wir sie. Der Löschbefehl lautet ERN (Erase Names). dem 
eine Liste mit Variablennamen oder ein einzelnes Wort folgen kann. 


?MAKE "ICH "DIETER 
?MAKE "SIE "CLAUDIA 
?MAKE "LISA "HALLO 


?PONS 

LISA IS HALLO 

SIE IS CLAUDIA 

ICH 1S DIETER 

ZAHL IS 26 

LOTTOTIP 1S [31 5 15 22 29 26) 


?ERN [ZAHL LOTTOTIPI 
?PONS 

LISA IS HALLO 

SIE 1S CLAUDIA 

ICH 1S DIETER 
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In der folgenden Wertzuweisung wird dem Inhalt der Variablen "ICH das 
Wort "SIE zugewiesen. Das geht nur, wenn der Inhalt von "ICH ein Wort 
ist und somit Name einer Variablen sein könnte. 


?MAKE :ICH "SIE 
?PONS 

LISA 15 HALLO 
SIE 15 CLAUDIA 
DIETER IS SIE 
ICH 1S DIETER 


Im Folgebeispiel weisen wir dem Inhalt von "ICH den Inhalt von "SIE als 
Wert zu. 


?MAKE :ICH :SIE 
?PONS 

LISA 15 HALLO 

SIE 1S CLAUDIA 
DIETER 1S CLAUDIA 
ICH 15 DIETER 


?FR :ICH 
DIETER 

?PR THING :ICH 
CLAUDIA 


11.3 Programmschleifen 


Mehrfachwiederholungen sind auch durch kontrollierte Sprünge an den 

Programmanfang möglich. Im Gegensatz zu den rekursiven Funktionen 

nennt man diese iterative Funktionen. Grundsätzlich lassen sich alle Wie- 

derholungen sowohl iterativ als auch rekursiv formulieren. In diesem 

Abschnitt wollen wir bereits bekannte Beispiele iterativ formulieren. 
Betrachten wir das altbekannte Beispiel SPIEGEL: 


TO SPIEGEL :OBJ 

MAKE "ERGEBNIS " 

LABEL "START 

IF EMPTYP :0BJ [OP :ERGEBNIS) 

MAKE "ERGEBNIS WORD :ERGEBNIS LAST :0BJ 
MAKE "OBJ BUTLAST :0BJ 

GO "START 

END 


?PR SPIEGEL "GESTERN 
NRETSEG 
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Diese Funktion hat den Charakter einer Operation. da es das Ergebnis 
mit OUTPUT abliefert. Der Verarbeitungsteil liegt zwischen der Ein- 
sprungmarke "START und dem GO-Befehl. Bei jedem Durchlauf wird der 
letzte Buchstabe von :OBJ genommen und ans Ende des Inhalts vom 
Speicher :ERGEBNIS gehängt. Die Endebedingung folgt unmittelbar nach 
der Einsprungmarke. Wichtig ist, daß die Variable ERGEBNIS erst einmal 
deklariert werden muß. Andernfalls würde das Programm abbrechen und 
die Fehlermeldung ausgeben: ERGEBNIS HAS NO VALUE. Die Anwei- 
sung WORD :ERGEBNIS LAST :OBJ kann nicht ausgeführt werden. da 
die Variable "ERGEBNIS nicht erklärt ist und somit auch kein Inhalt von 
"ERGEBNIS vorliegt. 

Nach dem gleichen Schema ist auch QUERSUMME aufgebaut: 

TO QUERSUMME :ZAHIL. 

MAKE "SUMME 0 

LABEL "ANFANG 

IF EMPTYP :ZAHL [OP :SUMME) 

MAKE "SUMME :SUMME + FIRST :ZAHL 
MAKE "ZAHL BUTFIRST :ZAHL 


GO "ANFANG 
END 


?PR QUERSUMME 12345 
15 


NWEG ist eine sogenannte Zählschleife. Entsprechend der vorgegebe- 
nen Anzahl werden die Anweisungen zwischen der Einsprungmarke und 
dem GO-Befehl durchlaufen. 


TO NWEG :0BJ :ANZ 
LABEL "START 

IF :ANZ = 0 [OP :OBJ] 
MAKE "OBJ BF :OBJ 
MAKE "ANZ :ANZ - 1 
GO "START 

END 


?PR NWEG "GESTERN 3 
TERN 


Bei solchen Zählschleifen läßt sich sehr viel bequemer der REPEAT- 
Befehl einsetzen. Diese Alternative ist in NWEGI dargestellt. 


TO NWEG1 :0BJ :ANZ 

REPEAT :ANZ IMAKE "OBJ BF :0BJ] 
OUTPUT :OBJ ü 

END 
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Kontrollieren wir zum Abschluß. welche Variablen im Arbeitsspeicher 
sind: i 
?PONS 


ERGEBNIS 15 NRETSEG 
SUMME 15 15 


Wir finden nur zwei Variable vor. obwohl wir in den vorangegangenen 
Beispielen zusätzliche Variable benutzt haben. Variable, die durch Defi- 
nition in der Kopfzeile von Funktionen vorgegeben werden, stehen nicht im 
Arbeitsspeicher. Auf diese Besonderheit wird in Kapitel 12 eingegangen. 


11.4 Zusammenfassung und Übungen 


l. Eine weitere Kontrollstruktur in Logo ist die Sprunganweisung GO. GO 
wird in Verbindung mit LABEL verwendet. Mit LABEL wird die 
Einsprungstelle markiert. GO und LABEL müssen dasselbe Wort als 
Eingabe haben. Mit einem GO-Befehl kann das Programm nicht verlas- 
sen werden. 

. Datenspeicher haben einen Namen und einen Inhalt. Name einer Varia- 
blen ist immer ein Logowort. Inhalt können Wörter, Zahlen und Listen 
sein. 

3. Eine Variable wird mit dem MAKE-Befehl erzeugt. MAKE hat zwei 
Eingaben. Als erstes den Variablennamen und als zweites den Inhalt des 
Speichers. 

4. Ein Speicherinhalt wird abgerufen. indem vor den Variablennamen die 
Operation THING gesetzt wird. Die Abkürzung für THING ist ein 
Doppelpunkt, der jetzt anstelle des Anführungsstrichs des Variablenna- 
mens gesetzt werden muß. 

5. Schleifenprozesse lassen sich ebenfalls einfach erreichen, indem mit 
einer GO-Anweisung an den Programmanfang gesprungen wird. 

6. Bevor Variable in Programmen verarbeitet werden können, müssen sie 
definiert worden sein. Zu Anfang eines Programms nennt man sinn- 
vollerweise alle zu verwendenden Variablen und weist ihnen das leere 
Wort oder die leere Liste zu. Variablennamen., die in der Kopfzeile einer 
Funktion definiert worden sind, müssen natürlich nicht erneut erklärt 
werden. 

7. Reine Zählschleifen sind sinnvoll mittels REPEAT-Anweisung zu erstel- 
len. 


1597 
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Neue Logovokabeln: 


1: 


2; 


Go 
LABEL 
MAKE 
THING 
ERN 
PONS 
NAMEP 


Aufgaben 


Schreibe die Aufgaben 1, 2, 4 und 5 aus Kapitel 10 als Iterationen 
entsprechend den oben dargestellten Beispielen. 

Erstelle eine Sprungleiste, die abhängig von eingegebenen Zahlen auf 
entsprechende Programmteile verzweigt. 


. Erstelle ein Textanalyseprogramm, das eine eingegebene Zeichenkette 


bezüglich der Anzahl der vorkommenden Zeichen untersucht. Es soll 
eine Übersicht ausgedruckt werden. in der in alphabetischer Reihenfolge 
neben jedem Buchstaben die Anzahl seiner Verwendung ausgedruckt 


wird. 


TEIL B 


Logo für Fortgeschrittene 


2 
Lokales und Globales 


In Kapitel 11 haben wir die Möglichkeit kennengelernt, Variable zu erzeu- 
gen, indem wir einem Wort einen bestimmten Inhalt zugewiesen haben. Mit 
dem MAKE-Befehl haben wir innerhalb einer Benutzerfunktion neue 
Speicherplätze erzeugt. Den Namen von Funktionseingaben können wir 
ebenfalls innerhalb der Benutzerfunktion neue Inhalte zuweisen. Diese 
bisher in der Kopfzeile einer Funktion angeführten Namen der Funktions- 
eingaben werden auch als formale Parameter bezeichnet, die beim Funk- 
tionsaufruf mit aktuellen Werten gefüllt werden. Diese Parameter sind nur 
innerhalb der Benutzerfunktion bekannt und können somit ausschließlich 
von dieser Funktion benutzt werden, natürlich auch in Verbindung mit 
weiteren Funktionsaufrufen. Diese Funktionsparameter haben einen iso- 
lierten, lokalen, quasi privaten Charakter. Man spricht daher auch von 
lokalen Variablen. Erst durch diesen grundsätzlichen lokalen Charakter der 
Funktionseingaben können wir unbekümmert eine Funktion nach der ande- 
ren mit gleichen Parameternamen definieren, ohne daß Konflikte entstehen. 

Knüpfen wir nun an das Ende von Kapitel 11 an. Betrachten wir noch 
einmal das Programm QUERSUMME. In QUERSUMME werden für 
Variable zwei Namen benutzt: ”ZAHL und ”SUMME. ”ZAHL ist der 
Name eines Funktionsparameters (Funktionseingabe) und wird beim Auf- 
ruf von QUERSUMME mit einem aktuellen Wert versehen. Der Speicher 
”SUMME wird zum Aufsummieren der einzelnen Ziffern der eingegebenen 
Zahl benötigt. Nach Ablauf von QUERSUMME finden wir im Arbeitsspei- 
cher nur die Variable "SUMME wieder. ”ZAHL ist lokale Variable gewe- 
sen und somit nicht mehr bekannt. Im Gegensatz zur Variablen ”ZAHL ist 
die Variable "SUMME als global zu bezeichnen. Solche Globalvariablen 
sind quasi Öffentlich und können jederzeit von jeder Benutzerfunktion 
angesprochen werden. Im direkten Ausführungsmodus liefert PONS alle 
Globalvariablen des Arbeitsspeichers. Innerhalb von Funktionen liefert 
PONS nur die der Funktion bekannten Variablen. 
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Solche versehentlich entstandenen Globalvariablen lungern sinnlos im 
Arbeitsspeicher herum und könnten möglicherweise irgendwann und uner- 
wartet unerklärliche Nebeneffekte bewirken, wenn wir zufällig Operatio- 
nen mit diesem Variablennamen ausführen. Sinnvoll ist es daher, wenn wir 
durch den Befehl LOCAL solche Hilfsspeicher von vornherein nur für den 
Geltungsbereich der jeweiligen Funktion beschränken. Außerdem wird 
damit nicht unnötig Speicherplatz blockiert. Sehen wir uns die entspre- 
chend geänderte Benutzerfunktion QUERSUMME an und testen wir sie: 


TO QUERSUMME :ZAHL 

LOCAL "SUMME 

MAKE "SUMME 0 

LABEL "ANFANG 

IF EMPTYP :ZAHL [OP :SUMME) 
MAKE "SUMME :SUMME + FIRST :ZAHL 
MAKE "ZAHL BUTFIRST :ZAHL 
GO "ANFANG 

END 

?PONS 

2 

?PR QUERSUMME 123 


6 
er 


?PONS 
2 


Im folgenden wollen wir uns mit der Frage beschäftigen, wie sich Funk- 
tionen verhalten, wenn lokale und globale Größen gleichen Namens vor- 
kommen und zu Eingaben von Funktionen werden. 

In DEMO1 benutzen wir die lokale Größe "NAME. Als Globalvariable 
ist "NAME mit dem Inhalt "DIETRICH definiert worden. Innerhalb des 
Programms und nach Ablauf setzen wir PONS ein, um Variable ausdrucken 
zu lassen. Rufen wir DEMO1 auf und nehmen wir als aktuellen Wert den 
Inhalt der Globalvariablen: 

TO DEMO1 :NAME 
MAKE "NAME FIRST :NAME 


PONS 
END 


?PONS 
NAME 1S DIETRICH 
? 


?DEMO1 :NAME 
NAME IS D 
? 


?PONS 
NAME 1S DIETRICH 
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Wir sehen, daß eine Manipulation einer lokalen Variablen, die denselben 


Namen wie eine Globalvariable hat, die globale Größe inhaltlich unberührt 
läßt. 


Auch DEMO? belegt die eben gemachte Aussage: 


TC DEMOZ :NAME 

PR :NAME 

MAKE "NAME WORD :NAME :NAME 
PR :NAME j 
END 


?PONS 
NAME IS DIETRICH 


?DEMO2 :NAME 
DIETRICH 
DIETRICHDIETRICH 
? 

?PONS 

NAME I1S DIETRICH 


In DEMOS3 hat die lokale Variable jetzt einen abweichenden Namen. 


Manipulieren wir jetzt die Variable "NAME, so ist die Globalvariable 
betroffen: 


TG DEMO3 :WORT 

PR :WORT 

MAKE "NAME BF BF BF :NAME 
PONS 

END 


?PONS 
NAME 15 DIETRICH 


?DEMO3 "NAME 
NAME 

WORT 1S NAME 
NAME IS TRICH 
2 


?PONS 
NAME 1$ TRICH 


?PONS 

NAME 15 DIETRICH 
? 

?DEMO3 ıNAME 
DIETRICH 

WORT 1S DIETRICH 
NAME IS TRICH 
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2 
?PONS 
NAME IS TRICH 


DEMOZ4 zeigt, daß der gleiche Vorgang wie in DEMO3 auch indirekt 
ohne Kenntnis des Namens der Globalvariablen möglich ist. 


TO DEMO4 :WORT 

PR :WORT 

MAKE :WORT BF BF BF THING :WORT 
PONS 

END 


?PONS 

NAME 1S DIETRICH 
? 

?DEMO4 "NAME 
NAME 

WORT 1S NAME 
NAME 1S TRICH 

? 

?PONS 

NAME IS TRICH 


Abschließend stellen wir fest, daß Globalvariable nur dann verwendet 
werden sollten, wenn sie tatsächlich global notwendig sind. Beispielsweise 
werden in Kapitel 25 zwei Listen global verwendet, da mehrere Routinen 
auf die Spielpositionen des Bedieners und Gegenspielers zugreifen und 
dieser Weg bequemer ist, als das Herumreichen der Werte über Funktions- 
parameter. Weiteres Beispiel ist die Liste mit den y-Werten von Funktionen 
in Kapitel 27, die beim Berechnen, bei Kontrolloperationen und der 
Grafikausgabe mehrfach benutzt werden müssen. Namen von Funktionspa- 
rametern sind immer lokal. Hilfsgrößen, die nur auf eine Funktion oder ihr 
untergeordneter Funktionen beschränkt sind, sollten immer mit LOCAL 
als lokale Größen definiert werden. 

Mit lokalen Variablen vermeiden wir auch die Möglichkeit, daß zwei 
Globalvariable versehentlich denselben Namen erhalten und wir mit der 
Funktion, die diese Variable zum zweiten Mal benutzt, den alten Inhalt der 
Globalvariablen unabsichtlich löschen (mit dem neuen Wert überschrei- 
ben). 


13 
Verwalten des Arbeitsspeichers 


13.1 Verpacktes Löschen, Schreiben und Verstecken 


Wie oft erleben wir, daß eine Fülle von benutzerdefinierten Funktionen im 
Arbeitsspeicher stehen und weitere Funktionen von der Diskette zusätzlich 
eingelesen werden. Dies geschieht meistens, wenn wir bei der Programm- 
entwicklung Funktionen aus vorangegangenen Programmen mitverwenden 
und nachladen, um sie nicht neu eintippen zu müssen. Aus dieser Menge 
wollen wir dann nur eine Teilmenge auf die Diskette speichern. Wie können 
wir elegant und bequem solche Aufgaben lösen? Machen wir uns also 
vertraut mit den Befehlen PACKAGE, PKGALL) BURY und UNBURY. 
Das Löschen von Funktionen mit den Befehlen ER und ERPS ist hinläng- 
lich bekannt. ERPS löscht alle Funktionen im Arbeitspeicher, ER nur die 
benannte Funktion oder die in einer Liste benannten Funktionen. 

ERPS 

ER ”FUELLER 

ER [FUELLER LBUEND RBUEND] 

Stehen beispielsweise 20 Benutzerfunktionen im Speicher, und wir möch- 
ten nur zwei von ihnen auf einer Diskette speichern, wäre der bisherige 
Weg schon mit Tippaufwand verbunden. Man müßte die zwei gewünschten 
Funktionen besonders kennzeichnen, gegen Löschen schützen oder geson- 
dert speichern können, dann wäre das alles angenehm einfach. Wie gehen 
wir also vor? 

Iın folgenden listen wir einige Funktionen auf, aus denen wir nur zwei auf 
die Diskette speichern wollen: 

?POTS 

TO REMPROPL :L 

TO MEMBER :3 :30BJ 

TO CASE :FALL :FAELLE 


TO OF :3 
TO BIS :93 
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TO WIEDERHOLE :MACHE :BIS 

TO DO :3 

TO WHILE :BEDINGUNG :MACHE 

TO SOLANGE :BEDINGUNG :MACHE 

TO FOR :VAR3 :A3 :E3 :539 :BEFEHL 


?PACKAGE "BRÄUCHICH LFOR WHILE]I 


Was hat PACKAGE bewirkt? Tippen wir einmal PPS (Print out Proper- 
ties) ein. PPS druckt alle Eigenschaften aus, die irgendwelchen Wörtern 
verliehen worden sind. Erinnern wir uns, daß Wörter die Namen von 
Benutzerfunktionen und auch Variablen sein können. 


?PPS 
WHILE’S PROCPKG IS BRAUCHICH 
FOR’S PROCPKG IS BRAUCHICH 


«.SYSTEM’S BURY IS TRUE 
? 


Die Funktionsnamen FOR und WHILE haben die Eigenschaft 
PROCPKG (Procedure Package) mit dem Wert «(BRAUCHICH». Auch 
mit dem Befehl PLIST (Property List) können wir gezielt die Eigenschaft 
eines Funktionsnamens erfragen: 


?PRINT PLIST "FOR 
PROCPKG BRAUCHICH 


?PRINT PLIST "WHILE 
PROCPKG BRAUCHICH 


Gegen ein Löschen können wir solche Pakete schützen, indem wir den 
Befehl BURY, gefolgt von dem Paketnamen, eingeben. Jetzt können wir 
den Arbeitsspeicher mit einem Befehl von allen Funktionen befreien, die 
versteckten Funktionen wieder ans Tageslicht holen und sie auf Diskette 
schreiben. 


?BURY "BRAUCHICH 

?ERPS 

?POTS 

? 

?PPS 

BRAUCHICH’S BURY 1S TRUE 
.SYSTEM’S BURY 15 TRUE 

? 


?UNBURY "BRÄAUCHICH 
? 
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?POTS 
TO WHILE :BEDINGUNG :MACHE 
TO FOR :VAR3 :A23 :E3 :S3 :BEFEHL 


?SAVE "DEMO1I 
2 PROCEDURES SAVED 


Wir hätten auch dieses Paket direkt auf die Diskette schreiben können. 


?SAVE "DEMO2 "BRAUCHICH 
2 PROCEDURES SAVED 


Wird ein Paket als solches auf eine Diskette geschrieben, so werden auch 
die Eigenschaften mitgespeichert. Auf diese Weise können Pakete in den 
Arbeitsspeicher gelesen werden, die nur aus versteckten Funktionen beste- 
hen. Das kann für Schulungszwecke, aber auch für Programmentwicklungs- 
phasen angenehm und übersichtlich sein, da wir Bekanntes nicht sehen 
wollen und der Schirm beim Benutzen von POTS oder POALL damit nicht 
immer vollgeschrieben wird. 

Abschließend sei noch die Wirkung von PKGALL demonstriert. Hiermit 
können wir alles, einschließlich der vorhandenen Globalvariablen, zu ei- 
nem Paket verschnüren und dieses Paket in bekannter Weise mit Eigen- 
schaften belegen. 


?MAKE "CHIP "WISSEN 
?PKGALL "VERLAG 
? 


?PPS 


CHIP’S VALPKG 1S VERLAG 
.SYSTEM’S BURY IS TRUE 


?PR THING "CHIP 


WISSEN 
> 


?PR PLIST "CHIP 
VALPKG VERLAG 


Wir sehen, daß das Wort "CHIP als Variablenname die Eigenschaft 
VALPKG (Value Package) mit dem Wert "VERLAG erhalten hat. 

Verstecken wir mit BURY das Paket mit dem Namen "VERLAG, so 
wird dieses Paket und damit die Variable "CHIP unsichtbar. PONS und 
auch ERNS bleiben jetzt auf diese Variable ohne Einfluß. 
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> 

?BURY "VERLAG 

?PPS 

VERLAG’S BURY IS TRUE 


.SYSTEM’S BURY IS TRUE 
? 


?PONS 
? 


Wir können gezielt Pakete bilden und die so markierten Teile des 
Arbeitsspeichers verwalten. 

Zu Paketen zusammengefaßte Variable und/oder Funktionen lassen sich 
als Teilgesamtheit unter Benutzung des Paketnamens: 


löschen ERPS «Paketname» 
verstecken BURY «Paketname» 
sichtbar machen UNBURVY «Paketname» 


auf Diskette speichern SAVE «Dateiname» «Paketname» 


Eine Eigenschaft wird mit dem Befehl REMPROP (Remove Property) 
aufgehoben. 


?REMPROP "WHILE "PROCPKG 
?REMPROP "FOR "PROCPKG 


Haben wir einmal mehr als zehn solcher Paketeigenschaften für Benut- 
zerfunktionen aufzuheben, hilft da schon die folgende kleine Hilfsroutine, 
die die Eigenschaften für die in einer Liste eingegebenen Namen der 
Funktionen löscht. 


TO REMPROPL :L 

IF EMPTYP :L LSTOP] 
REMPROP FIRST :L "PROCPKG 
REMPROPL BF :L 

END 


?REMPROPL LFOR WHILE SOLANGE DO CASE OF] 
? 
? 
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Wir sollten ein wenig mit diesen Funktionen spielen, um sie wirklich 
kennenzulernen und bei Bedarf schätzen zu lernen. Angemerkt sei, daß 
auch die Paketeigenschaften bei vielen Funktionsnamen Arbeitsspeicher 
beanspruchen. 


Zum Schluß sei demonstriert, wie das Programm für Kapitel 29 segmen- 
tiert und auf Diskette in Teilbausteinen gespeichert worden ist. 


?POTS 

TO PROGRAMMSTRUKTUR 
TO ®DRZEILE :9F :9P 
TO 3®DRUCK :3FKTN :3PZAHL 
TO aFKTN :9 

TO aERKLAERT? :9F 
TO aBEKANNT :9aF 

TO 3aPKTE :3ANZ 

TO 3aREKURSIV :9F 

TO 3aRUFT :9aL 

TO aFKT? :9aW 

TO 9@DEF :9F 


?PACKAGE "TREEi LPROGRÄAMMSTRUKTUR] 
?PACKAGE "TREE2 L9aFKTN 9aFKT?] 
?PACKAGE "TREE3 [9aDEF 3RUFT 93FKT?) 
?PKGALL "TREE4 


?SAVE "PROGTREEI "TREE 
1 PROCEDURES SAVED 
?SAVE "PROGTREE2 "TREE2 
1 PROCEDURES SAVED 
?SAVE "PROGTREE3 "TREE3 
3 PROCEDURES SAVED 


?CATALOG 
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4 


STARTUP.LOGO 
DEMO1.LOGO 
DEMO2.LOGO 
KONTROLLE.LOGO 
REPORTWRITER.LOGO 
PROGTREE1.LOGO 
PROGTREE2.LOGO 
PROGTREE3.LOGO 
PROGTREE4.LOGO 
MASKE.LOGO 
DEMO3.LOGO 


[3 
DUPPEWUNUNWWR 


44-44-4444 
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13.2 Hilfe, der Arbeitsspeicher reicht nicht! 


Der Arbeitsspeicher eines jeden Computers ist begrenzt. Irgendwann ein- 
mal müssen Teile aus ihm ausgelagert werden, damit Platz für andere 
Programme und Daten entsteht. Wir müssen also von Zeit zu Zeit den 
Arbeitsspeicher leeren. Vor allem, wenn wir größere Programme schreiben 
oder Programmteile von Disketten nachladen, muß Platz gemacht werden. 
Wer viel mit Rekursionen arbeitet, hat bestimmt schon die ärgerliche 
Meldung erhalten, daß kein Platz mehr da ist (OUT OF SPACE). Selbst 
wenn der Arbeitsspeicher fast leer ist, können Programmfehler den Ar- 
beitsspeicher zustopfen. Das folgende Beispiel soll es belegen: 


TO FUELLER :2CHN :ANZÄHL 

IF :ANZAHL = 0 [OP * ] 

OP WORD :ZCHN FUELLER :2CHN :ANZAHL - 1 
END 


?PR FUELLER "X -2 
OUT OF SPACE IN FUELLER 
IF :ANZAHL = 0 [OP * ] 


Bei Rekursionen muß sich der Computer mit jedem neuen Aufruf des 
rekursiven Programms entsprechende Hilfsspeicher anlegen, um die Ein- 
und Ausgabewerte zwischenzuspeichern. In der Rekursion FUELLER wird 
bei einer negativen Zahleneingabe die negative Zahl immer kleiner (-5, 
-6, -7, ...), doch die Abbruchbedingung Null wird nie erreicht. Der 
Computer baut immer neue Zwischenspeicher auf, und FUELLER ruft 
immer wieder FUELLER auf, bis der Computer zusammenbricht, weil kein 
Arbeitsspeicher mehr vorhanden ist. 

Folgende Regeln sollten wir bei der Programmierung beherzigen: 

1. Eine gute Technik ist es, daß man so selten wie möglich globale Variable 
verwendet. Damit sind wir der Sorge enthoben, daß Globalvariable 
unkontrolliert anwachsen und unbemerkt im Speicher schlummern und 
unnötig Platz wegnehmen. Nicht mehr benötigte Werte löschen. 

2. Bei großen Programmen, bei denen sehr viele Funktionen gleichzeitig im 
Speicher gehalten werden müssen, hilft bei speicherkritischen Phasen 
meistens nur ein Umschreiben der rekursiven Funktionen in iterative 
Funktionen. Iterationen sind auch im Laufzeitverhalten günstiger. 
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3. Werden Variable oder Funktionen zu Paketen verschnürt, so wird auch 
hierfür Speicherplatz benötigt. Mit PPS bei Schwierigkeiten Pakete 
untersuchen und Platz freimachen. Vor allem auf versteckte Funktionen 


Verwalten des Arbeitsspeichers 


und Variable achten. 


4. Werden Programme zu groß, sollten sie in sinnvolle Teilprogramme 
zerlegt werden. Die jeweils nur benötigten Teile werden dann von der 
Diskette nachgeladen. Die nicht benötigten Programme werden gelöscht 
und schaffen Platz für die nachzuladenden Programme. Vergleichen wir 


einmal das Leitprogramm aus Kapitel 29 als Beispiel. 


TO PROGRAMMSTRUKTUR 


LOAD 
MAKE 
ERPS 
LOAD 
aDEF 
ERPS 
BURY 
ERPS 
LOAD 


"PROGTREE2 

"aPROGS 3FKTN „CONTENTS. 
"TREE2 

"PROGTREE3 

THING "3PROGS 

"TREE3 

"TREE 


"PROGTREE4 


PR [WIE LAUTET<N) DIE LEITFUNKTION<EN? ?] 


MAKE 


"aLTG RL 


DRUCK THING "3LTG 0 


END 


Ein schlechter Programmierstil wäre es, die Programmnamen und 
Variablennamen auf nur ein bis zwei Buchstaben zu begrenzen, um 
damit ein paar hundert Zeichen Arbeitsspeicherplatz herauszuquet- 


schen. 


14 
Bildschirm und Cursorsteuerung 


In den vorangegangenen Kapiteln haben wir bereits die Befehle zum 
Löschen des Grafik- und Textschirms kennengelernt. Im Grafikmodus 
haben wir die Alternative gezeigt, den Gesamtschirm oder nur einen 
Grafikteil mit zusätzlichen vier Textzeilen im unteren Schirmbereich zu 
nutzen. Das Umschalten vom Grafikmodus zum Textmodus geschieht 
durch den Befehl TEXTSCREEN. Das Umschalten vom Textmodus zum 
Grafikmodus erfolgt durch Eingeben irgendeines Grafikbefehls. Das Logo- 
system wählt dabei die Möglichkeit des geteilten Schirms (SPLIT- 
SCREEN). Stellen wir noch einmal diese Befehle zusammen: 

CLEARSCREEN abgekürzt CS 

CLEARTEXT 

TEXTSCREEN 

FULLSCREEN 

SPLITSCREEN 

Befinden wir uns im Grafikmodus, so löscht der Befehl CLEARTEXT 
nur die unteren vier Textzeilen des geteilten Schirms. Das Logosystem hält 
immer gleichzeitig den Textschirminhalt und den Grafikschirminhalt ge- 
speichert. Jederzeit können wir auf einen der beiden Inhalte zugreifen, 
indem wir TEXTSCREEN oder einen Graphikbefehl (am besten FULL- 
SCREEN oder SPLITSCREEN) eingeben. Ein Beispiel hierzu, der einen 
schnellen Wechsel zwischen Text- und Grafikmodus zeigt, finden wir in 
Abschnitt 16.1. 

Bisher haben wir den Bildschirm im Textmodus in der Weise genutzt, daß 
eine Zeile nach der anderen ausgegeben worden ist. Die Bildschirmzeilen 
sind dann irgendwann einmal nach oben «weggelaufen» (scrolling). Bei 
manchen Anwendungen ist es wünschenswert, einen feststehenden Bild- 
schirminhalt in Form eines Formulars (Bildschirmmaske) zu benutzen. Nur 
an den vorgesehenen Stellen dieser Maske sollen Texte erscheinen oder 
gelöscht werden. Dies ist nur möglich, wenn wir Befehle haben, die den 
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Cursor an die gewünschte Bildschirmposition setzen. Im Textmodus wird 
der Cursor mit dem Befehl SETCURSOR auf dem Schirm positioniert. 
SETCURSOR hat eine Liste als Eingabe, in der das erste Element die 
Spalte (0 bis 39) und das zweite Element die Zeile (0 bis 23) angibt. Die 
Funktion CURSOR haben wir bereits in Kapitel 9 kennengelernt. CUR- 
SOR liefert die augenblickliche Position des Cursors und kann beispielswei- 
se für Tabulatorfunktionen verwendet werden. 

Im folgenden stellen wir einige kleine Hilfsbausteine vor, die bei späteren 
Programmen sinnvoll eingesetzt werden können. 

Die Funktion HINWEIS soll an vorgegebener Stelle auf dem Bildschirm 
einen Text ausgeben. Dabei wird mit TYPE CHAR 7 kurz geklingelt. 


TO HINWEIS :TXT :WO 
SETCURSOR :WO 

TYPE CHAR 7? 

TYPE :TXT 

END 


Die Funktion LOESCHEN löscht einen definierten Teilbereich einer 
Zeile. LOESCHEN hat die Cursorposition als erste Eingabe, dann das 
Löschzeichen (Leerzeichen oder ein anderes Zeichen) und als letztes die 
Länge der zu löschenden Teilzeile. LOESCHEN greift auf die Funktion 
STRICH zu, die die entsprechende Anzahl von Zeichen druckt, nachdem 
der Cursor positioniert worden ist. 


TO LOESCHEN :WO :ZCHN :L 
SETCURSOR :WO 

STRICH :L :ZCHN 

END 


TO STRICH :L :ZCHN 
REPEAT :L LTYPE :2CHN] 
END 


Die Funktion STRICH wäre eigentlich voll ausreichend. Wir müssen nur 
vorher mit der tippfreundlichen Routine C den Cursor positionieren. 


TOcC ıS ı:2 
SETCURSOR SE :S :2 
END 
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Das Logosystem bietet die Möglichkeit, Zeichen blinken zu lassen oder 
invertiert (schwarz auf weiß) zu drucken. Die jeweiligen Zeichen müssen 
nur gemäß der ASCII-Kode-Tabelle des Herstellers umgerechnet werden. 
TXT.INVERS druckt das eingegebene Wort in invertierter Form aus. Wir 


müssen vorher noch die Bildschirmstelle mit der Steuerfunktion C vorge- 
ben. 


TO TXT.INVERS :TXT 
LABEL "START 

IF EMPTYP :TXT L[STOP]I 
TYPE INVERS FIRST :TXT 
MAKE "TXT BF :TXT 

GO "START 

END 


TO INVERS :ZCHN 

TEST ASCII :ZCHN < 64 

IFT LOP CHAR (128 + ASCII :ZCHND] 
IFF [OP CHAR (64 + ASCII :ZCHN?] 
END 


TXT.BLINKEN entspricht vom Aufbau her vollständig TXT.INVERS, 
bis auf die Umrechnung. 


TO TXT.BLINKEN :TXT 
LABEL "START 

IF EMPTYP :TXT [STOP] 
TYPE BLINKEN FIRST :TXT 
MAKE "TXT BF :TXT 

GO "START 

END 


TO BLINKEN :ZCHN 

TEST ASCII :ZCHN { 44 

IFT [OP CHAR «192 + ASCII :ZCHN)]I 
IFF LOP CHAR «128 + ASCII :Z2CHN?)I 
END 


Mit RUECKSCHRITT können wir den Cursor, egal wo er sich befindet, 
genau um eine Stelle zurücksetzen. Hier wird CURSOR benutzt, um den 
neuen Spaltenwert zu errechnen. 


TO RUECKSCHRITT 
SETCURSOR SE SUM -1i FIRST CURSOR LAST CURSOR 
END 
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Die Funktion ENDE? soll demonstrieren, wie einfache benutzerorien- 
tierte Hinweise möglich sind. Nach dem Hinweis, wie das Programm 
beendet werden kann, wird mit WAIT zwei Sekunden gewartet, um Zeit 
zum Drücken der ESC-Taste zu lassen. Ist die Taste gedrückt worden, so 
wird nur in diesem Falle "TRUE geliefert. In allen anderen Fällen wird auf 
”FALSE erkannt. 


TO ENDE? 

HINWEIS [BEENDEN MIT ESC - TASTE] [1 22) 
WAIT 120 

IF KEYP LOP EQUALP RC CHAR 27] [OP "FALSE) 
END 


In Kapitel 25 wird ein Programm vorgestellt, das mit dem Baustein 
MASKE beliebige Bildschirmmasken erzeugen kann und viele der hier 
vorgestellten Hilfsroutinen in gleicher oder ähnlicher Form verwendet. 


15) 
Formen der Dateneingabe 


In den vorangegangenen Kapiteln haben wir Daten entweder über Funk- 
tionseingaben oder durch Definieren von Variablen mit dem MAKE-Befehl 
in Programmen zur Verfügung stellen können. Eine weitere Möglichkeit 
bieten die Funktionen READLIST und READCHAR. Sie erlauben, daß 
der Benutzer zum Zeitpunkt des Programmlaufs Daten zur Verfügung 
stellen kann. Die Abkürzung für READLIST ist RL und für READCHAR 
RC. READLIST ist eine Operation und liefert alle über die Tastatur 
eingegebenen Daten als Liste ab. Weisen wir einmal der Globalvariablen 
"NAME das Ergebnis von READLIST zu und sehen uns den Inhalt der 


Eingabe an: 


?MAKE "NAME RL 
WIE GEHT’S ? 
?SHOW :NAME 
[WIE GEHT’S ?] 


?SHOW FIRST :NAME 
WIE 


?SHOW FIRST RL 
GUTEN TAG 
GUTEN 


Bei Verwendung von READLIST blinkt der Cursor weiter und markiert 
somit die Stelle auf dem Bildschirm, an der die Eingabedaten zu sehen sein 
werden. Als weiteres Beispiel für einen einfachen Datenerfassungsdialog 
folgt DIALOG: 


TO DIALOG 

<LOCAL "NAME "TELEFON "ORT? 
TYPE [WIE HEISST DU ? ......:] 
MAKE "NAME READLIST 

TYPE LUND WO WOHNST DU ? .„..:] 
MAKE "ORT READLISTF 
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TYPE ILUND DEIN TELEFON ? ...:] 

MAKE "TELEFON RL 

PR “ 

<PR :NAME [, ICH RUFE DICH IN]I :0RT LAN UNTER 
DER NR.]J :TELEFON) 

END 


?DIALOG 

WIE HEISST DU ? ......:L1SA 
UND WO WOHNST DU ? .„..:0OBERRAD 
UND DEIN TELEFON ? ...:72732 


LISA „ ICH RUFE DICH IN OBERRAD AN UNTER 
DER NR. 72732 


Der TYPE-Befehl wird benutzt, damit der blinkende Cursor in der 
gleichen Zeile neben dem Doppelpunkt des ausgegebenen Textes erscheint. 
Hätten wir statt dessen den PRINT-Befehl benutzt, so wäre der Cursor in 
der Folgezeile am linken Rand positioniert worden. Denken wir daran, daß 
RL immer eine Liste liefert. Soll nur ein Wort eingegeben werden, müssen 
wir FIRST READLIST benutzen. 

Die Operation READCHAR liefert nur einen einzigen Buchstaben, der 
der jeweils gedrückten Taste entspricht. Im Gegensatz zu READLIST muß 
hier die Eingabe nicht mit der RETURN-Taste beendet werden. Das 
folgende Beispiel läßt eine bestimmte Taste erraten. Richtig ist nur die $- 
Taste. In allen anderen Fällen wird der Buchstabe mit dem Hinweis 
«Falsche Taste» ausgedruckt. Der Wartebefehl WAIT läßt Logo eine Se- 
kunde lang warten, bevor die nächste Logoanweisung ausgeführt wird, um 
Zeit zum Lesen zu lassen. 


TO BEGINN 

CLEARTEXT 

PR IWELCHES 1ST DIE START - TASTE ?)] 
TYPE [DRUECKE EINE TASTE ...:] 

IF RICHTIGETASTE? RC [STOP) 

BEGINN 

END 


TO RICHTIGETASTE? :TASTE 

IF :TASTE = "$ [PR [RICHTIG !] OP "TRUE] 
<PR :TASTE LIST FALSCH !]) WAIT 60 

OP "FALSE 

END 
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?BEGINN 

WELCHES 1ST DIE START - TASTE ? 
DRUECKE EINE TASTE ...:J IST FALSCH ! 
WELCHES IST DIE START - TASTE ?7 
DRUECKE EINE TASTE ...:X IST FALSCH ! 
WELCHES 1ST DIE START - TASTE ? 
DRUECKE EINE TASTE ...:RICHTIG ! 


Mit der Operation READCHAR lassen sich die unterschiedlichsten 
Eingabeprogramme entwickeln. Zu Datenerfassungszwecken können sämt- 
liche Zeichen einer Überprüfung zugeführt werden, und die gesamte Tasta- 
tur kann gegen Fehlbedienung unter Kontrolle gehalten werden. Ein 
umfangreiches Beispiel hierfür ist Kapitel 25. Wir können jede Taste mit 
einer bestimmten Funktion hinterlegen. Beispiele hierzu sind die Abschnit- 
te 16.2.4.1 und 16.2.4.2. 

Ein wichtiges Prüfwort ist KEYP, das überprüft, ob eine Taste gedrückt 
worden ist. Man könnte dem Bediener beispielsweise eine Zeitspanne 
vorgeben, um Eingaben zu machen. Ist eine Eingabe gemacht worden, wird 
sie verarbeitet, oder der Schläfer wird mit Klingeln aufgeweckt. Wir könn- 
ten damit auch testen, wer innerhalb von drei Sekunden die meisten 
Anschläge erzielt. Aber bitte nicht die REPEAT-Taste des Keyboards 
mitbenutzen! Sehen wir uns dieses kleine Programm an: 


TO TESTEN 

PR [WERTE EINGEBEN] 

PR L3 SEKUNDEN WARTET DER COMPUTER] 
WAIT 180 

TEST KEYP 

IFT [PR PUFFERINHALT]I 

IFF [WECKEN TESTEN] 

END 


TO PUFFERINHALT 

TEST KEYP 

IFF [OP * ] 

IFT [OP WORD READCHAR PUFFERINHALT]I 
END 


TO WECKEN 
REPEAT 10 [TYPE CHAR 7? PR [NICHT SCHLAFEN!)J)I 
END 


?TESTEN 

WERTE EINGEBEN 

3 SEKUNDEN WARTET DER COMPUTER 
NICHT SCHLAFEN! 
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NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
NICHT SCHLAFEN! 
WERTE EINGEBEN 
3 SEKUNDEN WARTET DER COMPUTER 
GESCHAFFT 


Die Funktion PUFFERINHALT ermittelt alle Buchstaben, die einge- 
tippt worden sind. Im Eingabepuffer können also mehr als nur ein Buchsta- 
be sein! 

Als Abschluß wollen wir ein kleines Programm kennenlernen, das den 
Namen NICHTANFASSEN trägt. Das Programm ist in einer Dauerschleife 
und überprüft, ob jemand die Tastatur berührt. Sind Tasten berührt wor- 
den, so fängt NICHTANFASSEN zu schimpfen an. Ist keine Taste angefaßt 
worden, so schlummert NICHTANFASSEN mit einem BLUBBERN dösig 
vor sich hin. 


TO NICHTANFASSEN 

TEST KEYP 

IFT ECSCHIMPFEN LOESCHEN] 
IFF [BLUBBERN] 
NICHTANFASSEN 

END 


TO SCHIMPFEN 

CLEARTEXT 

SETCURSOR [0 0] 

LZ 7 PR [VERDAMMT NOCH MAL !] 

LZ 3 PR [WER FUMMELT DA AN MIR HERUM ???] 
LZ 3 PR LAUFHOEREN !!!! FINGER WEG !!!] 
BLINKEN 

END 


TO BLINKEN 

HIDETURTLE 

REPEAT 3 [FULLSCREEN WAIT 20 TEXTSCREEN WAIT 30) 
TEXTSCREEN 

CLEARTEXT 

END 
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TO LOESCHEN 


TEST KEYP 
IFT LIGNORIERE RC LOESCHEN] 
END 


TO BLUBBERN 
PR LBLUBBER] 
WAIT 60 

END 


TO IGNORIERE ı:3 
END 


TO LZ ı:ıN 
REPEAT :N [PR "“ ] 
END 


Mit BLINKEN erreichen wir, daß der gesamte Bildschirmtext blinkt, da 
wir wechselnd den Grafikschirm und Textschirm aktivieren. Der Eingabe- 
puffer wird mit LOESCHEN leergemacht. LOESCHEN ruft sich so lange 
erneut auf, bis der Eingabepuffer geleert ist. IGNORIERE ist eine «Null- 
funktion», sie macht nichts. Da wir mit RC jeweils ein Zeichen aus dem 
Eingabepuffer holen, müssen wir ja etwas mit diesem Zeichen machen. Wir 
hätten natürlich den Buchstaben immer derselben lokalen Variablen zuwei- 
sen können. 


‚16 
Kontrollstrukturen 


16.1 Kontrollstrukturen in Logo 


Im ersten Hauptteil dieses Buches haben wir fast alle Kontrollstrukturen 
von Logo kennengelernt. Wir haben ein- und zweiseitige Programmver- 
zweigungen erstellt, die mit IF oder TEST, IFT und/oder IFF definiert 
werden konnten. 

Mehrfachwiederholungen haben wir unterschiedlich formulieren können. 
Wir haben den REPEAT-Befehl benutzt oder rekursive Funktionen er- 
stellt. Mittels der Sprunganweisung GO, einer Einsprungmarke und einer 
zusätzlichen Abbruchbedingung haben wir eine weitere Form von Pro- 
grammschleifen beschrieben. 

Bei rekursiven Funktionen mußten wir Programme mit OUTPUT oder 
STOP beenden. OUTPUT mußte zwingend bei rekursiven Operationen 
verwendet werden, da ja neben dem Abbruch auch noch ein Wert an die 
vorangegangene rufende Funktion abgeliefert werden mußte. Bei rekursi- 
ven Befehlen wird der STOP-Befehl verwendet, wenn die Endebedingung 
erreicht ist. 

Auch den RUN-Befehl haben wir bereits kennengelernt. Wichtig wird 
RUN im nächsten Abschnitt, wenn wir eigene Kontrollstrukturen nach 
unseren Bedürfnissen formulieren wollen. Stellen wir noch einmal als 
Übersicht die bekannten Strukturen und ihre zugehörigen Befehle zusam- 
men. 


Ein- und zweiseitige IF [Wahr-Zweig] 
Verzweigungen IF [Wahr-Zweig] [Unwahr-Zweig] 
TEST 


IFTRUE [WAHR-Zweig] 

IFFALSE [Unwahr-Zweig] 
Erzwungener Abbruch OUTPUT 

STOP 
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Mehrfachwiederholung REPEAT «Anzahl» «Anweisungen» 
Sprunganweisung GO «Einsprungmarke» 
LABEL «Einsprungmarke» 

Auswertung und Ausführung RUN 
einer Anweisungszeile 

Eine weitere Abbruchmöglichkeit von Funktionen ist durch den Befehl 
THROW ”TOPLEVEL gegeben. Mit Toplevel ist der direkte Eingabemo- 
dus gemeint. Veranschaulichen wir TOPLEVEL im Vergleich mit STOP an 
den folgenden Demonstrationsbeispielen. 


To B 

c 

PR LENDE VON PROGRAMM B] 
END 


Toc 

PR [HIER IST PROGRAMM C] 
THROW "TOPLEVEL 

END 


?B 
HIER 1ST PROGRAMM C 
? 


Programm B ruft Programm C auf. Die zweite Anweisungszeile erzwingt 
an dieser Stelle den Toplevel-Zustand. In der Wirkung ist das mit CTRL-G 
vergleichbar, was ebenfalls den unbedingten Abbruch erzwingt. Hätten wir 
die zweite Zeile im Programm mit dem STOP-Befehl definiert, so wäre nur 
das Programm C abgebrochen worden, und Programm B wäre weitergelau- 
fen. 


?B 
HIER 1ST PROGRAMM C 
ENDE VON PROGRAMM B 


Oftmals möchte man Programme in Testphasen nicht einfach abbrechen, 
sondern nur anhalten. Wir können auf zweierlei Arten eine Funktion 
anhalten: mit WAIT und mit PAUSE. 

WAIT verlangt eine Zahl als Eingabe. 60 bedeutet eine Pause von einer 
Sekunde, und 1 bedeutet eine Pause von einer sechzigstel Sekunde. Wir 
können Pausen vorsehen, um Zeit zu lassen, damit ein Benutzer Bild- 
schirmtexte lesen kann, bevor weitere Daten ausgegeben werden. Mit 
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WAIT könnte man auch ganze Schirminhalte blinken lassen. Man muß nur 
vom Textmodus in den Grafikmodus hin- und herschalten und dazwischen 
eine geeignete Pause lassen. Soll Grafik blinken, so muß vorher der 
Textschirm gelöscht werden, es sei denn, man hat Effekte beabsichtigt. Das 
gleiche gilt umgekehrt. Das folgende Beispiel demonstriert so etwas mit 
einer Texthinterlegung. 


TO BLINKEN 
SAUBERER.SCHIRM 
SATZ 

ACHT 60 

REPEAT 20 LWARTEN) 
END 


TO SAUBERER.SCHIRM 
CLEARSCREEN 
CLEARTEXT 
TEXTSCREEN 
SETCURSOR [O0 0) 
END 


TO SATZ 
REPEAT 12 [PR " ] 


En DAS 1ST EINE LIEGENDE ACHT HIER !) 


TO ACHT :RADIUS 
CIRCLER :RADIUS 
CIRCLEL :RADIUS 
END 


TO WARTEN 
TEXTSCREEN 
WAIT 10 
FULLSCREEN 
WAIT 10 
END 


Wird die Eingabe für WAIT in der Funktion kleiner als 3, kann das 
menschliche Auge dem Wechsel nicht mehr folgen. Man sieht nur noch 
«ein» Bild. 

PAUSE hat ebenfalls ein Anhalten des Programms zur Folge. Nach 
einem PAUSE muß jetzt aber vom Benutzer der Anstoß zum Weiterma- 
chen gegeben werden. Dies geschieht mit dem Befehl CO (Continue). Das 
Anhalten kann auch jederzeit per Tastatur mit CTRL-Z erfolgen. Damit 
läßt sich aber kaum eine definierte Stelle erreichen. Das geht nur mit 
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PAUSE. PAUSE eignet sich gut, um bei größeren Programmen in der 
Testphase bestimmte Checkpunkte einzubauen. Dadurch gewinnen wir die 
Möglichkeit, Funktionsparameter und andere lokale Größen zu inspizieren 
oder Werte zu Testzwecken zu verändern. Nach einem PAUSE ändert sich 
das Promptzeichen. Als Promptzeichen erscheint der Programmname, ge- 
folgt von einem Fragezeichen. Solange man kein CO zum Wiederanlauf 
eintippt, stehen uns alle Möglichkeiten offen. Wir können Variableninhalte 
ausdrucken, den Arbeitsspeicher bezüglich vorhandener Funktionen über- 
prüfen oder andere Programme aufrufen lassen. Im folgenden sehen wir 
drei kleine Testfunktionen, die alle ein PAUSE eingebaut haben. Zuerst 
sehen wir uns die Funktion X an: 


TO x 

PR [HIER IST X) 

PAUSE 

PR [NACH DER PAUSE IN X] 
END 


TO Y :SATZ 

PR [HALLO, HIER IST Y] 
PAUSE 

PR LIN Y NACH DER PAUSE) 
END 


TO 2 
PR EPROG 2 LIEFERT FUNKTIONSNAMEN] 
POTS 
END 


7X 
HIER IST X 
PAUSING... IN X: 


TOXxX 

PR [HIER IST X] 

PAUSE 

PR [NACH DER PAUSE IN X] 
END 
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x ?CO 

NACH DER PAUSE IN X 
? 

? 

? 


Das bisher Gesagte läßt sich gut überprüfen. Rufen wir jetzt erneut die 
Funktion Y auf und verfolgen wir die Möglichkeiten. 


?Y [ABC] 

HALLO, HIER IST Y 
PAUSING... IN Yı 
PAUSE 

Y ?PR :SATZ 

ABC 

Y ?PR :WERT 

WERT HAS NO VALUE 
VRX 

HIER 1ST X 
PAUSING... IN X: 
PAUSE 

x Y ?CO 

NACH DER PAUSE IN X 
Y?2 

PROG 2 LIEFERT FUNKTTIONSNAMEN 
TO Y ıSATZ 

TOxX 

TO 2 

Y ?COo 

IN Y NACH DER PAUSE 
? 


16.2 Kontrollstrukturen anderer Programmier- 
sprachen mit Logo 


Wer sich mit anderen Programmiersprachen beschäftigt hat, wird so man- 
che Kontrollstruktur liebgewonnen haben. Ohne die FOR-NEXT-Schleife 
wäre BASIC nicht vorstellbar. Die Fallauswahl (CASE...OF...) und die 
Wiederholungsmöglichkeiten mit WHILE oder REPEAT... UNTIL wären 
schon angenehm, da man liebgewonnene Arbeitstechniken nicht einfach 
aufgeben will. In den folgenden Unterabschnitten wollen wir unsere eige- 
nen Kontrollstrukturen definieren, die in größeren Programmprojekten 
schnell sinnvolle und mächtige Programme zu definieren erlauben. 
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16.2.1 Die WHILE-DO-Anweisung 


Die WHILE-DO-Anweisung hat zwei Eingaben. Als erstes wird die Ab- 
bruchbedingung dieser Wiederholungsanweisung eingegeben. Als zweites 
werden der Programmname oder die gewünschten Anweisungszeilen einge- 


TO WHILE :BEDINGUNG :MACHE 

LABEL "START 

IF RUN :BEDINGUNG [RUN :MACHE]J LSTOP]I 
GO "START 

END 


?MAKE "LISTE [A BC] 

?WHILE ENOT EMPTYP :LISTE]JI [LDRUCKE]I 
[2 

B 

[ei 


TO DRUCKE 

PRINT FIRST :LISTE 
MAKE "LISTE BF :LISTE 
END 


In der deutschen Sprache lautet diese Schleifenanweisung: SOLANGE 
(die definierte Bedingung zutrifft) MACHE (... das und das). 


TO SOLANGE :BEDINGUNG :MACHE 

LABEL "START 

IF RUN :BEDINGUNG LRUN :MACHE]I [STOP)I 
GO "START 

END 


Wer zum besseren Lesen von Logoprogrammen das Wörtchen DO oder 
das Wörtchen MACHE in der deutschsprachigen Version sehen möchte, 
muß nur die «Nulloperation» DO oder MACHE definieren, und schon ist 
auch dieser Wunsch erfüllt. 


?MAKE "LISTE [A BC) 

?WHILE EINOT EMPTYP :LISTE]I DO [DRUCKE)I 
Aa 

B 

c 
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TO DO :9 
OP :» 
END 


TO MACHE :® 
OP :u 
END 


?MAKE "LISTE IA BC) 

?SOLANGE [NOT EMPTYP :LISTEJI MACHE TDRUCKE) 
[2 

B 

c 


Zum Abschluß wird ein Beispiel geboten, das eine eingegebene Liste 
wortweise von rechts nach links «gespiegelt» in einer Zeile ausgeben soll. 
Mit WHILE und der Rekursion SPIEGEL ist das kein Auftrag. 


7MAKE "L LICH HEUTE GESTERN CLAUDIA LISA] 
?WHILE ELNOT EMPTYP :LJ [TYPE SPIEGEL LAST 
ıL MAKE "L BL :LJI ASILAIDUALCNRETSEGETUEHHCI? 


16.2.2 Die REPEAT-UNTIL-Anweisung 


Diese Schleifenanweisung sollten wir nicht einfach mit dem Logobefehl 
REPEAT gleichsetzen. REPEAT hat immer eine Zahl als Eingabe und 
wird als Zählschleife bezeichnet. Die REPEAT-UNTIL-Schleife ist allge- 
meiner und kann beliebige Prüfwörter als Bedingung haben und natürlich 
ähnlich einer Zählschleife Zahlenober- und -untergrenzen überprüfen. 

Im Gegensatz zur WHILE-DO-Anweisung wird dieser Schleifentyp im- 
mer mindestens einmal ausgeführt, da ja erst nach der Ausführung der 
Anweisung die Endbedingung überprüft wird. Diese Anweisung wiederholt 
etwas so lange, bis die vorgegebene Bedingung eingetreten ist. Das Pro- 
gramm und die nachfolgenden Beispiele müssen nicht weiter erläutert 
werden, da sie dem vorhergehenden Abschnitt entsprechen. 


TO WIEDERHOLE :MACHE :BIS 
LABEL "START 

RUN :MACHE 

IF NOT RUN :BIS [GO "STARTI 
END 
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TO BIS :2 
OF :9 
END 


?MAKE "LISTE IA BC) 

?WIEDERHOLE [DRUCKE]I LEMPTYP :LISTE) 
A 

B 

c 


?MAKE "LISTE [A B C] 
?WIEDERHOLE I[DRUCKE)I BIS LEMPTYP :LISTE)I 


a 
B 
c 


?MAKE "L LABENDS MORGENS TAGSUEBER] 


?@WIEDERHOLE [TYPE SPIEGEL FIRST :L MAKE "L BF 
:L] BIS [EMPTY P :L) 


SDNEBASNEGROMREBEUSGAT? 


16.2.3 Die FOR-Schleife 


Die FOR-Schleife ist eine Zählschleife. Der Wert einer Variablen wird von 
einem Ausgangswert bis zu einem Endwert in vorgegebener Schrittweite 
verändert. Nach jeder Wertänderung dieser Variablen werden die vorgese- 
henen Anweisungen oder Programme mit diesem jeweiligen Variablenwert 
ausgeführt. 

Sehen wir uns das folgende einfache Beispiel zur Verdeutlichung an. Von 
den Zahlen 1 bis 5 sollen für jede ganze Zahl die Quadratzahlen gedruckt 
werden. Wir erkennen als erstes den Variablennamen, der natürlich belie- 
big sein kann, nachfolgend den Anfangswert, den Endwert, die Schrittweite 
und als Liste die Anweisung. 


?FOR "1 1 5 1 LPR :I * :1] 
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Die in Logo formulierten FOR-Programme folgen. Die Variante FORI1 
ist mit FOR identisch, ist aber für das Verständnis übersichtlicher gestaltet. 
Die Konstruktion mit Hilfe des REPEAT-Befehls macht das Programm 
auch etwas schneller in der Ausführung. 


TO FOR :VAR3 :A9 :Ea :59 :BEFEHL 
LOCAL :VAR»? 
MAKE :VAR9 :AP 


REPEAT SUM 1 <:E® - :A9) / :59 [RUN :BEFEHL 
MAKE :VAR® :59 + THING :VAR3] 
END 


TO FORi :VAR3 :A3 :E9 :5S9 :BEFEHL 
LOCAL :VAR3 

MAKE :VARF :A9 

LABEL "START 

RUN :BEFEHL 

MAKE :VAR3 :59 + THING :VARD 

IF THING :VAR3 > :EP L[LSTOP]I 

GO "START 

END 


?FOR "1 60 65 1 [PR WORD CHAR :1 CHAR :1) 
£ 
>> 
2 
Cr] 
AA 


?FOR "1 5 1 -1 [PR SORT :1) 
2.23607 

2. 

1.73205 

1.941421 

1. 


?FOR "1 65 40 -i [PR CHAR :1] 


alvvoP 


Kontrollstrukturen 165 


Die Beispiele zeigen, daß auch rückwärts in der Zählschleife gezählt 
werden kann. Wir müssen nur eine negative Schrittweite eingeben. Wir 
können auch kleinere Wertveränderungen vornehmen und die Schrittweite 
kleiner als eins machen. 


?FOR "1 1.01 1.015 .001 [PR :I * 1000) 
1919. 
1011. 
1012. 
1013. 
1014. 


Doch hier wird für den Endwert die Anweisung nicht mehr ausgeführt. 
Ein kleiner Fehler von uns, der schnell erklärt ist. Der REPEAT-Befehl 
nimmt von der eingegebenen Zahl nur den ganzzahligen Anteil, somit von 
5,99988 nur die Ziffer 5. Hätten wir das Divisionsergebnis aufgerundet, 
wäre alles richtig. Wir müssen also unsere FOR-Anweisung mit der Opera- 
tion ROUND verbessern. 


?PR <1.015 - 1.013 / .001 
4.99988 


?PR ROUND «1.015 - 1.01) / .001 
ee} 


16.2.4 Die Mehrfachverzweigung CASE-OF 


Wir haben bisher die ein- und zweiseitige Programmverzweigung kennenge- 
lernt. Im folgenden wollen wir eine Kontrollstruktur entwickeln, die die 
Mehrfachverzweigung ermöglicht. Die Apple-Version z. B. hat nicht die 
hilfreiche Funktion MEMBER, die ein notwendiger Baustein für die 
CASE-OF-Kontrollstruktur ist. MEMBER arbeitet ähnlich wie die bereits 
vorgestellte Funktion ITEM, die bekanntlich ein mit einer Zahl ausgewähl- 
tes Element aus einer Liste holt. Sehen wir uns die folgenden Beispiele an, 
um uns mit MEMBER vertraut zu machen. 


?PR MEMBER "C [AB CD eE) 
cCDE 


?PR MEMBER "3 "WORT73A 
3A 
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?PR FIRST BF MEMBER "B [A ICH B DU C ER) 


DU 

?PR FIRST BF MEMBER "2 [1 ICH 2 DU 3 ER] 
DU 

?PRINT ITEM 2 [LICH DU ER] 

DU 


Anschließend betrachten wir die rekursiv formulierte Funktion MEM- 
BER und die jetzt bereits erklärte und bekannte Wirkungsweise der CASE- 
OF-Kontrollstruktur. 


TO CASE :FALL :FAELLE 
OP FIRST BF MEMBER :FALL :FAELLE 
END 


TO MEMBER :3 :930BJ 

IF EMPTYP :30BJ [OP :30BJ] 

IF :2 = FIRST :30BJ [OP :30BJ] 
OP MEMBER :@ BF :930BJ 

END 


Mit der CASE-OF-Struktur können wir beliebige Fallsituationen kon- 
struieren und auf jeden dieser Fälle abhängig von dem eingegebenen 
Einzelfall verzweigen. Die Fälle in der Liste können Wörter oder Listen 
sein. Besonders sinnvoll sind Listen, da diese entweder gedruckt oder aber 
die Eingabe für den RUN-Befehl werden können. Somit kann mit der 
CASE-OF-Struktur auf verschiedene Daten verzweigt werden, die entwe- 
der als Programmdaten oder aber als Programm selbst interpretiert werden. 
Die nachfolgenden Beispiele verdeutlichen es. 


?PR CASE "I [2 [FALL 2) I LCFALL 11 B [FALL B)) 
FALL I 


?PR CASE "1 OF [2 [FALL 21 I [FALL 11 B [FALL BI] 
FALL I 


?PR CASE "J OF LI ITASTE J JTASTE K KTASTE]I 
JTASTE 


?PR CASE "J OF LI LITASTE)I J LJTASTE)I K I[KTASTEI)I 
JTASTE 


?RUN CASE "J OF LI LITASTEI J LJTASTEI K LKTASTE)) 
PROGRAMM JTASTE LAEUFT 
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TO ITASTE 
PR EPROGRAMM ITASTE LAEUFT) 
END 


TO KTASTE 
PR EPROGRAMM KTASTE LAEUFT] 
END 


TO JTASTE 
PR EPROGRAMM JTASTE LAEUFT]) 
END 


Die CASE-OF-Struktur hat in der Regel auch einen Fehlerausgang, über 
den bei fehlerhaftem Fall der Programmzusammenbruch vermieden werden 
soll. Fälle, die nicht vorgesehen oder vorher bedacht worden sind, können 
auf diese Weise ausgesteuert werden. Das folgende geänderte Programm 
enthält diese entsprechende Zusatzabfrage. Ist der Fall nicht vorgesehen, 
wird FEHLER geliefert, wobei FEHLER als Programm interpretiert wer- 
den kann und es jeweils unsere Aufgabe wäre, dies genauer zu definieren. 


TO CASE :FALL :FAELLE 

IF NOT MEMBERP :FALL :FAELLE [OP LFEHLER]) 
OUTPUT FIRST BF MEMBER :FALL :FAELLE 

END 


16.2.4.1 Turtlegrafik über Softkeys 


An dieser Stelle soll die angedeutete Idee des vorigen Abschnitts vertieft 
werden. Abhängig von einzelnen Tasten des Keyboards soll auf ein be- 
stimmtes Programm verzweigt werden. Erstellen wir einen tastengesteuer- 
ten Turtlegrafiktrainer. Jede Taste soll eine bestimmte Turtlegrafikanwei- 
sung auslösen. Mit sechs elementaren Befehlen soll ein Anfänger wie mit 
einem Lichtgriffel geometrische Figuren zeichnen können. Folgende Befeh- 
le sollen realisiert werden: 
- Löschen des Bildschirms und Einnehmen der Turtleausgangsposition 
- Drehen nach rechts (10 Grad jeweils) 
- Drehen nach links (10 Grad jeweils) 
- Vorwärts (jeweils zehn Schritte) 
— Rückwärts (zurück um jeweils 10 Schritte) 
- Ausradieren von Fehlbewegungen. 

Mit diesen Grafikbefehlen lassen sich alle Figuren, Kreise und Kreisbö- 
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gen zeichnen. Die Turtle kann versetzt werden, ohne Spuren zu hinterlas- 
sen. Gestrichelte Linien werden möglich. Folgende Tasten werden belegt: 

-L für nach links drehen 

—R für nach rechts drehen 

— V für vorwärts 

— Z für zurück (rückwärts) 

-S für Schirmlöschen 

— W für Wegradieren. 

Abgesichert gegen falsche Tasten wird über den Fehlerausgang der 
vorgestellten CASE-OF-Struktur. Ist der eingetippte Buchstabe nicht in der 
Liste mit den Fällen, so wird die Anweisung GO "SCHLEIFE geliefert. Die 
Fehleingabe ist damit ignoriert, ohne daß der Benutzer es merkt. 


TO GRAPHIK 

LABEL "SCHLEIFE 

RUN CASE RC BEFEHLE 
GO "SCHLEIFE 

END 


TO BEFEHLE 
OP [L LLINKSDREHEN] R LRECHTSDREHEN] V LVORWAERTS] 


2 LRUECKWAERTSI S [LLOESCHEN]I W ERADIEREN]]I 
END 


TO RADIEREN 
PENERASE 

BK 10 
PENDOWN 

END 


TO RUECKWAERTS 
BK 10 
END 


TO LOESCHEN 
cs 
END 


TO ZURUECK 
BK 10 
END 


TO VORWAERTS 
FD 10 
END 
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TO LINKSDREHEN 
LT 10 
END 


TO RECHTSDREHEN 
RT 10 
END 


TO CASE :FALL :FAELLE 

IF NOT MEMBERP :FALL :FAELLE [OP FEHLER] 
OP FIRST BF MEMBER :FALL :FAELLE 

END 


TO FEHLER 


OP [GO "SCHLEIFE) 
END 


16.2.4.2 Menütechnik 


Zur Abrundung wollen wir noch ein kleines Steuerprogramm kennenler- 

nen, das über eine vorgegebene feste Auswahl (Menü) den Benutzer führt. 

Andere als die angegebenen Möglichkeiten sind nicht erlaubt. Die Tasten 

müssen somit wiederum gegen Fehlanschläge geschützt werden. Das Bild- 

schirmmenü könnte dann wie folgt aussehen: 

WELCHE LEKTION BITTE : 

TURTLEGRAPHIK .... 
ASTRONEBEL ...s.... 


REPEAT-BEFEHL .... 


mo oa > 


BEENDEN ...vccc0r00 


Durch Eintippen des jeweiligen zugeordneten Buchstabens oder der 
zugeordneten Ziffer wird dann auf das Programm verzweigt. Statt solch 
einer Kursfolge könnte natürlich auch ein Menü zur Spieleauswahl oder auf 
Hilfsroutinen in komplexen Datenerfassungsprogrammen verzweigt wer- 
den und dergleichen. Das Prinzip wird immer gleich bleiben. Für unser 
Beispiel müßten wir noch die Programme LEKTIONA, LEKTIONB... 
erstellen. 
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TO LOGOKURS 
LABEL "SCHLEIFE 
MENUDRUCKEN 
AUSWAHL 

GO "SCHLEIFE 
END 


TO MENUDRUCKEN 

CLEARTEXT 

SETCURSOR [O0 0] 

REPEAT 4 [PR " ] 

PR [WELCHE LEKTION BITTE :) 

PR L] TAB 15 PR [TURTLEGRAPHIK 
PR L[] TAB 15 PR LASTRONEBEL ... 
PR [1 TAB 15 PR LREPEAT-BEFEHL 
PR [1] TAB 15 PR [BEENDEN ...... 
END 


TO TAB :STELLE 
REPEAT (:STELLE - FIRST CURSOR) [TYPE " ] 
END 


TO AUSWAHL 

LABEL "VERTIPPT 

RUN <SE FALL RC AUS MENU? 
END 


TO MENU 
OP IA LEKTIONA B LEKTIONB C LEKTIONC E ENDE) 
END 


TO FALL :FALL :FAELLE 

IF NOT MEMBERP :FALL :FAELLE [OP FEHLER] 
OUTPUT FIRST BF MEMBER :FALL :FAELLE 
END 


TO AUS :9 
OUTPUT :3 
END 


TO FEHLER 

PR CHAR 7 PR CHAR 7 
OP 160 "VERTIPPT) 
END 


TO ENDE 
THROW "TOPLEVEL 
END 


TO MENBER :9 :30BJ 

IF EMPTYP :90BJ [OP :20B4) 

IF :9 = FIRST :90BJ [OP :90BJ] 
OP MENBER :9 BF :30BJ 

END 


A] 
B] 
c] 
E] 
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Hingewiesen sei auf eine Abweichung im Gegensatz zu Abschnitt 
16.2.4.1 bezüglich der Gestaltung der Auswahlliste. Hier sind die Elemente 
der Liste Wörter und nicht Listen. Da RUN aber eine Liste als Eingabe 
vorschreibt, mußten wir das Ergebnis der Fallauswahl noch in eine Liste 
umwandeln, indem SENTENCE vorangestellt wird. Die runden Klammern 
sind nötig, da SENTENCE nur eine Eingabe hat. Wir sehen, daß RUN- 
Anweisungszeilen in Verbindung mit der CASE-OF-Struktur unterschied- 
lich gestaltet werden können. 

Interessant wird das obige Steuerprogramm, wenn man die jeweils ge- 
wünschten Lektionen, die ja selbst größere Programmpakete sein können, 
von der Diskette einliest. Wird eine andere Lektion gewünscht, werden 
diese Programme gelöscht. Somit sind kaum Arbeitsspeicherengpässe zu 
erwarten. Der Arbeitsspeicher hätte bei der vorigen Version sicherlich bei 
umfangreichen Lektionen nicht ausgereicht, da ja alle Lektionen im Spei- 
cher hätten stehen sollen. Nachfolgend werden die geänderten Funktionen 
von LOGOKURS aufgelistet: 


TO LOGOKURS 
LABEL "SCHLEIFE 
MENUDRUCKEN 
AUSWAHL 

ERPS 

GO "SCHLEIFE 
END 


TO AUSWAHL 

LABEL "VERTIPPT 

RUN VON.DISK.HOLEN FALL RC AUS MENU 
START 

END 


TO VON.DISK.HOLEN :DATEI 

IF :DATEI = "ENDE LENDE)I 

IF :DATEI = [FEHLER] [OP FEHLER) 
OP SE [LOAD]I WORD "" :DATEI 

END 


TO FALL :FALL :FAELLE 

IF NOT MEMBERP :FALL :FAELLE [OP LFEHLER)I)I 
OUTPUT FIRST BF MEMBER :FALL :FAELLE 

END 
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Alle Funktionen von LOGOKURS sind im Speicher unsichtbar gemacht, 
damit der Löschbefehl ERPS nur die nicht mehr gewünschte Lektion löscht 
und damit Platz für neue Lektionen schafft. Das Ergebnis der Fallauswahl 
wird zur Eingabe der Funktion VON.DISK.HOLEN. 

Kern ist die letzte Zeile, in der eine Liste gebildet wird, die den 
gewünschten LOAD-Befehl enthält, der dann von RUN ausgeführt wird. 
Zum Verstecken von Funktionen siehe Kapitel 13. 

Die letzte Anweisungszeile in AUSWAHL heißt START. START ist das 
Leitprogramm von jedem Programmpaket auf der Diskette. Das Lesen von 
LEKTIONB und die gespeicherten Funktionen nach dem Einlesen sind 
unten im Direktmodus nachempfunden. 


?LOAD "LEKTIONB 
?POTS 
TO START 


?PO "START 

TO START 

SETCURSOR [O0 0) 

CLEARTEXT 

REPEAT 12 [PR " ] 

PR [DIE UEBERSICHT ZU ASTRONEBEL :] 
END 


16.2.4.3 Telegrafiesender 


Ein Sonderfall unserer Mehrfachverzweigung liegt vor, wenn sich alle Fälle 
durch eine laufende Zählnummer ermitteln lassen. Die Fälle stellen sich 
dann in der Liste so dar: 

[1 FALLA 2 FALLB 3 FALLC 4 FALLD...] 

Wenn solch eine Fallsammlung möglich ist, sollten wir immer die Logo- 
funktion ITEM benutzen. Wir haben sie schon mehrfach kennengelernt. 
ITEM hat eine Zahl und eine Liste der Fälle als Eingaben. Die Zahl n 
kennzeichnet das n-te Element in der Liste, das von ITEM abgeliefert wird. 
Mit der Zahl 2 als Eingabe wäre für das obige Beispiel FALLB geliefert 
worden. 

Viele Anwendungen können schnell hierauf zurückgeführt werden. Dies 
gilt meistens, wenn alphabetische Reihenfolgen zugrunde liegen. Lassen 
wir als Beispiel Buchstaben und Ziffern im Morsealphabet ausgeben, so ist 
ITEM ideal. Wir müssen nur das jeweils eingegebene Zeichen geeignet 
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umrechnen, um die notwendige Kennzahl für ITEM zu erhalten. Der 
Buchstabe A wäre der erste Buchstabe in unserem Morsealphabet, B der 
zweite Buchstabe usw. Da A die Kodierungsnummer 65 in der ASCII- 
Kode-Tabelle hat, muß nur die Zahl 64 abgezogen werden, um die Zähl- 


nummer 1 zu erhalten. Das zugehörige Morsezeichen für einen Buchstaben 
ist dann wie folgt mit CODE1 zu ermitteln: 


TO CODEI :2CHN 
OP ITEM (ASCHI :2CHN) - 64 T._ Lens Lele Lee en nele Le rn ann 


NE ne en ee 2 


END 


Die Dezimalziffern werden wie folgt ermittelt: 


TO CODE2 :2CHN 
OP ITEM (ASCII s2CHWD - 47 I . Lan 


. .. 


EN 


Um zusammenhängende Texte im Morsealphabet auszugeben, müssen 
wir die eingegebene Zeichenkette nur zeichenweise von links nach rechts 
abarbeiten und mit unseren obigen Funktionen umsetzen lassen. Da wir nur 
die Dezimalziffern und die Buchstaben von A bis Z vorsehen wollen, 
müssen wir entsprechende Prüffragen im Programm vorsehen und falsche 
Zeichen einfach übergehen. In dem Beispiel haben wir eine akustische 
Ausgabe vorgesehen, indem mit PR CHAR 7 die Terminalklingel ange- 
schlagen wird. Wer will, kann einfach die Funktionen ändern und die 
Zeichen ausdrucken lassen. 


TO MORSEN :TXT 

LABEL "ANFANG 

IF EMPTYP :TXT [STOP] 

IE_FIRST :TXT = CHAR 32 IWAIT 30 MAKE "TXT BF :TXT 60 "ANFANG) 
IF NOT ZULAESSIG? ASCII FIRST :TXT IMAKE "TXT BF :TXT 60 "ANFANG] 
TEST ASCII FIRST :TXT £ 65 

IFT [UMSETZEN CODE2 FIRST :TXT] 

IFF LUMSETZEN CODEI FIRST :TXT] 

WAIT 15 

MAKE "TXT BF :TXT 

60 "ANFANG 

END 
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TO ZULAESSIG? :Z 

TEST OR (:2 ) 47) (:2 X 57 
IFT [OP "TRUE] 

TEST OR (:2 ) 64) (12 < 91) 
IFT [OP "TRUE] 

OP "FALSE 

END 


TO UMSETZEN :MC 

IF EMPTYP :MC [STOP] 

IF FIRST ıMC = ". [KURZI [LANG] 
WMSETZEN BF :MC 

END 


TO KURZ 
PR CHAR 7? 
WAIT 2 
END 


TO LANG 

(PR CHAR 7 CHAR 7 CHAR 7) 
WAIT 8 

END 


16.3 Definieren von Fehlerausgängen 


Zu den Kontrollstrukturen in Logo gehören noch die Befehle CATCH und 
THROW. CATCH und THROW sind ein Befehlspaar, ähnlich dem Be- 
fehlspaar GO und LABEL. THROW übergibt (wirft) die Programmkon- 
trolle an das zugehörige CATCH. Die Zusammengehörigkeit wird durch 
einen gemeinsamen Namen festgelegt, der die Eingabe für CATCH und 
THROW ist. Wird der Befehl THROW ”FEHLER innerhalb einer Benut- 
zerfunktion vorgefunden, so wird die zugehörige Markierung CATCH 
”FEHLER gesucht, die in irgendeinem vorangegangenen Teilprogramm 
definiert worden sein muß. Wir können also mit CATCH und THROW 
unsere eigenen Programmausgänge definieren. Somit können wir aus Pro- 
grammen herausspringen und an eine zurückliegende Stelle innerhalb des 
abgelaufenen Gesamtprogramms zurückverzweigen. 

Verdeutlichen wir dies an einem kleinen Beispiel. In den Programmen A 
bis E werden Druckbefehle ausgegeben, die uns ein Verfolgen des Ablaufs 
gestatten. Das Programm D sieht einen direkten Rücksprung nach Pro- 
gramm A und mit E das Programmende vor. 
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TO A 

CATCH "B [B) 

PR [LETZTE ZEILE IN PROG A] 
END 


TO B 

PR LIN B UND RUFT C) 
c 

END 


Toc 

PR LRUFE JETZT DI 
D 

END 


TOD 

PR L[LIN D JETZT) 

PR LZURUECK NACH A ODER NACH E ?] 

TEST FIRST RL = "A 

IFF [EI 

PR [NACH A ZURUECK JETZT MIT THROW "B] 
THROW "B 

END 


TO E 

PR EPROGRAMMENDE ERREICHT] 
THROW "TOPLEVEL 

END 


Lassen wir das Testprogramm A ablaufen und sehen wir uns beide 
Ergebnisse abhängig von der Benutzereingabe in D an: 


?A 

IN B UND RUFT C 

RUFE JETZT D 

IN D JETZT 

ZURUECK NACH A ODER NACH E ? 


[2 
NACH A ZURUECK JETZT MIT THROW "B 
LETZTE ZEILE IN PROG A 


FA 

IN B UND RUFT C 

RUFE JETZT D 

IN D JETZT 

ZURUECK NACH A ODER NACH E ? 
E 

PROGRAMMENDE ERREICHT 
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Wichtig ist, daß die zweite Eingabe von CATCH eine Anweisungsliste 
sein muß. Nur was auf diese Weise unserem CATCH ”FEHLER vorgestellt 
worden ist, kann später auf seine Verbindung zu CATCH zurückgreifen 
und mit THROW ”FEHLER zurückspringen. Daran müssen wir denken, 
sonst kann die «Fangschaltung» nicht klappen. Der Rücksprung kann nur 
aus Routinen erfolgen, die direkt oder indirekt in der Anweisungsliste 
vorkommen. 

Sehen wir uns hierzu noch ein weiteres kleines Beispiel an. Im vorange- 
gangenen Abschnitt haben wir den Fehlerausgang bei der Mehrfachauswahl 
etwas aufwendig realisieren müssen. Vergleichen wir noch einmal aus 
Abschnitt 16.2.4.1 das Programm GRAPHIK: 


TO GRAPHIK 

LABEL "SCHLEIFE 
RUN CASE RC BEFEHLE 
60 "SCHLEIFE 

END 


TO CASE :FALL :FAELLE 

IF NOT MEMBERP :FALL :FAELLE [OP [FEHLER]] 
OUTPUT FIRST BF MEMBER :FALL :FAELLE 

END 


TO FEHLER 
OP [60 "SCHLEIFE] 
END 


TO BEFEHLE 

OP EL TLINKSDREHENI R LRECHTSDREHEN) V LVORWAERTSI 2 LRUECKWAERTS) S I 
LOESCHEN]) W TRADIEREN]] 

END 


Die Funktion FEHLER können wir einsparen und innerhalb von CASE 
direkt im Fehlerfall an den Anfang von GRAPHIK zurückverzweigen: 


TO GRAPFIKI 

LABEL "SCHLEIFE 

CATCH "SCHLEIFE [RUN CASE1I RC BEFEHLE) 
60 "SCHLEIFE 

END 


TO CASEI :FALL sFAELLE 

IF NOT MEMBERP :FALL :FAELLE [THROW "SCHLEIFE] 
OUTPUT FIRST BF MEMBER :FALL :FAELLE 

END 
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Logo kennt als Eingaben für THROW zwei Spezialwörter, nämlich 
”TOPLEVEL und "ERROR. THROW ”TOPLEVEL führt zu sofortigem 
Programmabbruch und entspricht damit in der Wirkung einem direkt 
eingetippten CTRL-G. THROW ”ERROR wird vom Logosystem automa- 
tisch ausgeführt, wenn irgendein Fehler auftritt. Liegt kein entsprechendes 
CATCH ”ERROR vor, das vom Benutzer definiert worden sein muß, 
druckt das Logosystem die entsprechende Fehlermeldung aus und pausiert. 
Solche Fehlermeldungen kennen wir zur Genüge. Was passiert nun, wenn 
wir so ein CATCH ”ERROR in einer Benutzerfunktion vorsehen? 


TO AUFDISK :DATEI 
ERASEFILE :DATEI 
SAVE :DATEI 

END 


?AUFDISK "DUDA 
FILE NOT FOUND IN AUFDISKı 
ERASEFILE :DATEI 


AUFDISK soll also den Arbeitsspeicherinhalt auf der Diskette speichern 
und die gleichnamige Datei vorher löschen. Erinnern wir uns, daß das 
ERASEFILE bei bereits definierten Dateien der einzige Weg ist, um diese 
geänderte Datei unter demselben Namen wieder abspeichern zu können. In 
dem Beispiel hat aber die entsprechende Datei "”DUDA nicht vorgelegen. 
Die Fehlermeldung sagt es uns. Im Normalfall müßten wir jetzt selbst direkt 
SAVE ”DUDA eingeben. Ändern wir also jetzt unser Programm und 
bauen wir CATCH ”ERROR ein: 


TO AUFDISK1 :DATEI 

CATCH "ERROR LERASEFILE :DATEI) 
SAVE :DATEI 

END 


?AUFDISKI "DUDA 
0 PROCEDURES SAVED 


Das THROW ”ERROR wird von CATCH ”ERROR aufgefangen, und 
die unmittelbar nachfolgende Anweisungszeile kommt zur Ausführung. Da 
jetzt der SAVE-Befehl angetroffen wird, wird wie gewünscht der Inhalt des 
Arbeitsspeichers auf die Diskette geschrieben. (In diesem Falle keine 
Benutzerfunktion, da alles mit BURY versteckt war.) 

Die Fehlerfangschaltung können wir auch benutzen, um die englischen 
Fehlerkommentare zu unterdrücken und eigene vorzusehen: 
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TO ERF :DATEI 

CATCH "ERROR TERASEFILE :DATEI] 

IF EMPTYP ERROR [STOP] 

PR CHAR 7 

PR [WELCHE DATEILOESCHEN ??] 

<£PR [DIE DATEI] :DATEI L[GIBT’S NICHT!)) 
PR ENOCH MAL] 

END 


Die Logofunktion ERROR ist eine Operation, die nach einem aufgetre- 
tenen Fehler die Fehlerbeschreibung liefert. Im Normalfall, wenn kein 
Fehler vorangegangen ist, liefert die Operation ERROR die leere Liste. Da 
bei einem Fehler ERROR eine Liste mit der vorgefundenen Fehlerbe- 
schreibung liefert, wird die Funktion ERF nicht beendet, sondern liefert 
mit einem Klingeln einen deutlichen Rüffel. 

Das Beispiel SYNTAXCHECKER ist rekursiv und führt jeweils die 
Eingabezeile aus. Bei einem Syntaxfehler klingelt es, und es wird ein Fehler 
mitgeteilt. 


TO SYNTAXCHECKER 
CATCH "ERROR [RUN RLI 


IF NOT EMPTYP ERROR [TYPE CHAR 7 PR "FEHLER] 
SYNTAXCHECKER 
END 


?SYNTAXCHECKER 
PR3+7? 
FEHLER 


PR3 +7 
FEHLER 


PR 3+7 
10 


SYNTAXCHECKER könnte natürlich ausgebaut werden und für den 
Logoanfängerunterricht in Verbindung mit Kapitel 1 Lernhilfen bieten, 
indem nicht einfach «Fehler», sondern aufgrund einer Analyse von ER- 
ROR ausführliche deutschsprachige Hinweise ausgegeben werden. 

Mit CTRL-G können wir das obige Programm nicht unterbrechen, 
sondern nur mit CTRL-Z und dem Befehl THROW ”TOPLEVEL. 


PAUSING... IN SYNTAXCHECKER: 
CATCH "ERROR I[RUN RL] 
SYNTAXCHECKER ?THROW "TOPLEVEL 


Abschließend sehen wir uns einen benutzerdefinierten Fehlerausgang an, 
der von zwei Funktionen angesprochen wird. IN ERF und VERARBEI- 
TEN springen wir bei auftretendem Fehler ins Leitprogramm zurück. Bei 
vorliegendem Fehler wird die Routine NOTAUSGANG angesprochen, die 
in einem Dialog den Fehler meldet, mittels PAUSE eine Datenkorrektur 
ermöglicht und einen erneuten Programmlauf zuläßt oder nicht — ganz wie 
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wir wünschen. 


Das folgende Ablaufprotokoll soll das Beispiel im Test beschreiben. 
Löschen wir vorher noch im Arbeitsspeicher alle Variablen. Welche Fehler 


treten auf: 


1. Im ersten Durchlauf hat der Parameter :DATEI der Funktion ERF 


TO LEITPROGRAMM 

CATCH "NOTFALL [VERARBEITEN] 

IF FEHLER [INOTAUSGANG LEITPROGRAMM] 
PR [VERARBEITEN WAR OKAY] 

END 


TO VERARBEITEN 

CATCH "ERROR LERF :DATEI)I 
THROW "NOTFALL 

END 


TO ERF :DATEI 

CATCH "ERROR LERASEFILE :DATEI] 
THROW "NOTFALL 

END 


TO FEHLER 
MAKE "FEHLER ERROR 
IF EMPTYP :FEHLER [OP "FALSE)I [OP "TRUE)I 


TO NOTAUSGANG 

PR EWAS SOLL JETZT GESCHEHEN ?] 
PR LFOLGENDER FEHLER IST PASSIERT:) 
PR :FEHLER 

PR [BITTE DATEN KORRIGIEREN...) 
PAUSE 

PR [WEITERMACHEN .... ?] 

TYPE LJA ODER NEIN] 

IF FIRST RL = "JA [STOP] 

THROW "TOPLEVEL 

END 


keinen Wert (vgl. unten). 
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2. Nachdem wir dem Parameter :DATEI den Wert ”HIHAHU zugewiesen 
haben, läuft das Programm erneut an und stellt fest, daß auf der Diskette 
diese Datei nicht existiert (vgl. unten). Wir listen jetzt erst einmal das 
Inhaltsverzeichnis der Diskette auf. Wir wollen ADRESSEN löschen. 

3. Aus Versehen haben wir bei der Wertzuweisung für :DATEI statt 
"ADRESSEN? den Programmnamen ADRESSENT eingegeben. Doch 
diese Funktion existiert nicht. 

Endlich hat alles geklappt. 


?LEITPROGRAMM 

WAS SOLL JETZT GESCHEHEN ? 

FOLGENDER FEHLER 1ST PASSIERT: 

36 [DATEI HAS NO VALUE] VERARBEITEN LCATCH 
"ERROR [LERF :DATE 11) CATCH DATEI 
BITTE DATEN KORRIGIEREN... 

PAUSING... IN NOTAUSGANG : 

PAUSE 

NOTAUSGANG ?MAKE "DATEI "HIHAHU 
NOTAUSGANG ?CO 

WEITERMACHEN .... ? 

JA ODER NEINJA 

WAS SOLL JETZT GESCHEHEN ? 

FOLGENDER FEHLER IST PASSIERT: 

17 EFILE NOT FOUND] ERF LCATCH "ERROR 
LERASEFILE :DATEIJ]J ERASEFILE [] 
BITTE DATEN KORRIGIEREN... 

PAUSING... IN NOTAUSGANG : 

PAUSE 

NOTAUSGANG ?CATALOG 


DISK VOLUME 254 


HELLO 

ADRESSENO .LOGO 
ADRESSEN1.LOGO 
ADRESSEN2.LOGO 
ADRESSEN3.LOGO 
ADRESSEN4.LOGO 
ADRESSENS.LOGO 
ADRESSENd.LOGO 
ADRESSEN?.LOGO 
DATEIVERARBEITEN.LOGO 
DATE1.LOGO 
ERFASSEN.LOGO 
DATEIZUSATZ.LOGO 
TURTLESHAPES.LOGO 
FEHLERAUSGANG.LOGO 


> 


- 
NUWUIUBNNNNNNNNN 


4444444444 44-1 
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NOTAUSGANG ?ADRESSEN? 

I DON’T KNOW HOW TO ADRESSEN? 
NOTAUSGANG ?MAKE "DATEI "ADRESSEN? 
NOTAUSGANG ?CO 

WEITERMACHEN .... ? 

JA ODER NEINJA 

VERARBEITEN WAR OKAY 

VERARBEITEN WAR OKAY 


VERARBEITEN WAR OKAY 
2 


Die rekursive Formulierung von Leitprogramm ist anschaulich. Doch wir 
sollten bei eigenen Programmen, wie oben in GRAFIKI1, mit einem GO- 
Befehl an den Anfang zurückspringen, da durch vielfaches rekursives 
Aufrufen Speicherplatz unnötig belegt wird, was bei großen Programmen 
ins Gewicht fallen kann. 

Bei der Verwendung von CATCH "ERROR sei darauf hingewiesen, daß 
in der vorliegenden Logo-Version die nachgestellte Anweisungsliste nur 
zuverlässig arbeitet, wenn Befehle als Anweisungen enthalten sind. Liegen 
Operationen vor, können Fehler auftauchen (vgl. hierzu das Beispiel 
NACHF in Kapitel 18). 


17 
Turnkey-Systeme in Logo 


Unter einem Turnkey-System versteht man die Tatsache, daß ein Computer 
mit dem Einschalten des Stroms nach dem Laden des Betriebssystems auch 
noch die Anwendungssoftware für den jeweiligen Individualfall lädt und 
diese Anwendersoftware startet. Der Benutzer sieht nach dem Einschalten 
(Turnkey = Schlüsseldrehen) gleich seine Begrüßung und kann beginnen. 

Logo bietet die Möglichkeit, die jeweils gewünschte Benutzersoftware 
nach dem Einschalten automatisch in den Arbeitsspeicher zu laden. Der 
Benutzer muß nur noch die jeweils vereinbarte Startfunktion eingeben und 
die RETURN-Taste drücken (hier das Leitprogramm namens START zur 
Ausführung bringen). 

Beim Laden des Logosystems wird als letztes grundsätzlich die Datei 
«STARTUP» von der Diskette eingelesen. Es liegt am Benutzer, welchen 
Inhalt diese Diskettendatei hat. Der Hersteller hat in STARTUP einige 
selbstdefinierte Grafikbefehle unter dem Paketnamen “AIDS abgelegt. 
Laden wir einmal die Datei “AIDS in den Speicher und stellen wir sie 
sicher. Mit ERASEFILE “STARTUFP löschen wir diese Datei. Wir wollen 
das Programm aus Abschnitt 16.2.4.1 in den Arbeitsspeicher laden lassen. 
Wir müssen nur folgende Benutzerfunktion mit Namen START dort spei- 
chern: 

Mit SETDISK 2 wird das Diskettenlaufwerk 2 angesprochen. Wird der 
Befehl weggelassen, wird grundsätzlich Laufwerk 1 angesprochen. 


TPACKAGE "START "ICH 
?BURY "ICH 

?ERPS 

?ERNS 


?FERASEFILE "STARTUP 
?PUNBURY "ICH 

?SAVE "STARTUP 

1 PROCEDURES SAVED 
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TO START 
SETDISK 2 


LOAD " TURTLEGRAPHIK 
GRAPHIK 


END 


Wir könnten auch jeweils das Inhaltsverzeichnis der Diskette ausgeben 
und vom Benutzer den Programmnamen eingeben lassen. Das Programm 
kann auch starten, sofern der Dateiname mit dem Programmnamen über- 
einstimmt und keine Eingabeparameter vorkommen. 


TO START 
SETDISK 2 
CATALOG 


PR EWELCHES PROGRAMM LADEN] 
TYPE EDEN NAMEN BITTE :] 
LOCAL "NAME 

MAKE "NAME FIRST RL 

LOAD :NAME 

RUN < LIST :zNAME > 

END 


18 
Strukturierte Listen 


Dieser Abschnitt will grundsätzlich die Möglichkeiten andeuten, die in 
strukturierten Listen und den Eigenschaftslisten stecken. Die Programm- 
beispiele im dritten Hauptteil arbeiten fast alle mit strukturierten Listen 
oder mehreren Listen, die Beziehungen zueinander haben. 

Bisher haben wir Listen bearbeitet, die als Elemente Wörter hatten. Im 
Kapitel 1 haben wir schon angedeutet, daß ein Element einer Liste wieder- 
um eine Liste sein kann. Nehmen wir ein einfaches Beispiel einer dreiele- 
mentigen Liste: 

[[PUDEL DACKEL] [SIAM PERSER] [ENTE TAUBE]] 

Jedes Einzelement besteht aus einer zweielementigen Liste, deren Ele- 
mente Wörter sind. Das erste Listenelement nennt zwei Hundearten, dann 
folgen zwei Katzenarten und zwei Vogelarten. 

Solch eine Liste wird auch als Liste zweiter Ordnung bezeichnet. Hätte 
das Listenelement statt Wörtern wiederum Listen, würde eine Liste dritter 
Ordnung vorliegen. 

Viele Dinge lassen sich gut durch solche strukturierten Listen beschrei- 
ben. Dabei sind die Reihenfolge der Listenelemente und die Elemente 
selbst von Bedeutung. 

Eine Liste zweiter Ordnung kann eine geordnete Folge von Zahlenpaa- 
ren sein. Die einzelnen Zahlenpaare könnten die x- und y-Koordinaten von 
Kurven oder Bildpunkten auf dem Bildschirm sein: 

[[-10 12] [-5 7] [0 3] [5 7] [10 30]] 

Ein weiteres Beispiel sei eine Tabelle aus fünf Zeilen und fünf Spalten, 

beziehungsweise ein Feld aus 5 x 5 Einzelfeldern: 
[[A 3 5 ICH 7] [...] [.--] [---] [---]] 

Das erste Element der Liste entspräche Zeile 1 der Tabelle mit den fünf 
Spaltenelementen A, 3, 5, ICH, 7. Die vier Restzeilen sind nur angedeutet. 

Sind die jeweiligen Einzelfelder in der Zeile ein Wort, so haben wir eine 
Liste zweiter Ordnung. Doch die Zeilenelemente können wiederum eine 
Liste sein. Jedes Einzelfeld der Tabelle könnte ein Zahlenpaar in Form 
einer zweielementigen Liste enthalten. 
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Als drittes Beispiel wollen wir folgendes Listenelement betrachten: 
[[5 10] ORT BLINKEN] 

Dieses Listenelement soll bedeuten, daß in der Bildschirmzeile 10 ab der 
fünften Schreibstelle der Inhalt der Variablen mit Namen “ORT in blinken- 
der Form ausgegeben werden soll. 

Sehen wir uns noch ein viertes Beispiel an: 

[A [BC]B[GJC[DFG]D[] F[] G [Hf]] 

Diese Liste soll beispielsweise eine Baumstruktur beschreiben. Sie könn- 
te die Aufrufstruktur eines Benutzerprogramms sein, wobei das Leitpro- 
gramm den Namen A hätte und die Benutzerfunktionen B und C aufruft. 
Diese Benutzerfunktionen rufen weitere Funktionen auf usw. 


A 


H 


Ähnliche hierarchische Strukturen lassen sich für verschiedene Gegeben- 
heiten aufstellen: Organisationspläne von Firmen, Stammbäume, Klassifi- 
kationen, Netzpläne usw. Diese Listen könnten an bestimmten Stellen noch 
zusätzlich Wegweiser (Zeiger) enthalten, die auf vorangegangene und 
nachfolgende Variable hinweisen und somit Datenketten beschreiben. Die- 
se Zeiger können auch die Identifikationsnummer für Daten in anderen 
Dateien sein. Auf diese Weise können recht komplizierte Datenstrukturen 
beschrieben werden. Für das Verarbeiten solcher Daten müßten dann erst 
noch sinnvolle Benutzerfunktionen definiert werden. 

Als letztes Beispiel sei das Programm Spiegel aus Kapitel 10 in Form 
einer Liste gezeigt. Jede Anweisungszeile bildet ein Element der Liste. In 
Kapitel 19 gehen wir hierauf näher ein. 
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ELWORT]I LIF EMPTYP :WORT [OP "JJ LOP WOR 
D LAST :WORT SPIEGEL BL :WORT]) 


Als letztes wollen wir Eigenschaftslisten kennenlernen. Für diesen Da- 
tentyp bietet Logo eine Handvoll von Befehlen, um diesen Datentyp 
bequem handhaben zu können. Zur Verdeutlichung von Eigenschaftslisten 
wollen wir auf das erste Beispiel dieses Abschnitts zurückgreifen, in dem 
wir Haustiere aufgezählt hatten. Zur leichteren Lesbarkeit hätte man vor 
jedes Element dieser Haustierliste ein beschreibendes Wort stellen können: 

[HUNDE [PUDEL DACKEL] KATZEN [SIAM PERSER] VÖGEL 
[ENTE TAUBE]] 

Anders formuliert können wir sagen, daß die Eigenschaftsliste namens 
”HAUSTIERE die drei Eigenschaften "HUNDE, ”KATZEN und ”VÖ- 
GEL enthält, wobei jede Eigenschaft zwei Werte oder Beispiele beinhaltet. 
Lernen wir jetzt die Logofunktionen für Eigenschaftslisten kennen: 

Die Operation PLIST (Property List) liefert die Eigenschaftsliste, deren 
Name eingegeben worden ist. 


?SHOW PLIST "HAUSTIERE 
[VOEGEL [TAUBE ENTE)I KATZEN [SIAM PERSER] HUNDE [DACKEL PUDEL]) 


Die Operation GPROP (Get Property) liefert gezielt die angegebene 
Eigenschaft einer Eigenschaftsliste mit ihren Inhalten. Eingaben sind der 
Name der Eigenschaftsliste und der Name der Eigenschaft selbst. 


?SHOW GPROP "HAUSTIERE "KATZEN 
LSIAM PERSER] 


?SHOW GPROP "HAUSTIERE "MAUESE 
[] 


Die Operation PPROP (Put Property) fügt in einer Eigenschaftsliste eine 
neue Eigenschaft mit deren Inhalten ein. Eingaben sind der Name der 
Eigenschaftsliste, die Eigenschaftsbezeichnung und der Inhalt dieser Eigen- 
schaft. Enthält eine Eigenschaftsliste bereits diese Eigenschaft, so. wird die 
neue Eigenschaft mit ihrem Inhalt zur aktuellen Eigenschaft der Liste. Die 
alte Eigenschaft ist damit gelöscht, beziehungsweise überschrieben. 
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?PPROP "HAUSTIERE "SPIELTIERE IHAMSTER MEERSCHWEIN] 


?SHOW PLIST "HAUSTIERE 
[SPIELTIERE [HAMSTER MEERSCHWEINI VOEGEL [TAUBE ENTE) KATZEN LSIAM PER 
SER] HUNDE [DACKEL PUDEL]] 


?PPROP "HAUSTIERE "SPIELTIERE [PAPAGEI) 


?SHOW PLIST "HAUSTIERE 
[SPIELTIERE [PAPAGEI) VOEGEL [TAUBE ENTE) KATZEN [SIAM PERSER) HUNDE I 
DACKEL PUDEL]] 


Der Befehl REMPROP (Remove Property) löscht Eigenschaften in 
Eigenschaftslisten, das heißt, der Name und der Inhalt der Eigenschaft 
werden gelöscht. 


?REMPROP "HAUSTIERE *"SPIELTIERE 


?SHOW PLIST "HAUSTIERE 
[VOEGEL [TAUBE ENTE)I KATZEN [SIAM PERSER) HUNDE [DACKEL PUDEL)) 


Der Befehl PPS (Print Out Properties) listet alle Eigenschaftsverein- 
barungen auf. Das gilt auch für Paketvereinbarungen in Verbindung mit der 
Verwaltung des Arbeitsspeichers (vgl. Kapitel 13). 


?PPS 

HAUSTIERE’S VOEGEL IS LTAUBE ENTE) 
HAUSTIERE’S KATZEN IS [SIAM PERSER] 
HAUSTIERE’S HUNDE 15 [DACKEL PUDEL) 


Diese Funktionen und insbesondere die Operationen GPROP und 
PPROP bieten den Vorteil, daß wir gekennzeichnete Listenelemente direkt 
ansprechen können, ohne daß wir die Stellung des Elements innerhalb der 
Liste kennen müssen. Eigenschaftslisten sind ein eigener Datentyp in Logo, 
der nicht mit den Befehlen für Wertzuweisungen angesprochen werden 
kann. Mit SAVE und LOAD werden natürlich ebenfalls die vorhandenen 
Eigenschaftslisten übertragen. 

Im folgenden wollen wir einige Grundfunktionen entwickeln, die es 
erlauben, verkettete Eigenschaftslisten einfach zu bearbeiten. Die Verket- 
tung erfolgt in der Weise, daß der Nachfolger oder Vorgänger der Liste in 
der Eigenschaftsliste notiert wird. Zur Verdeutlichung stellen wir vier 
Eigenschaftslisten vor, die miteinander verkettet sind: 
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?SHOW PLIST "ICH SHOW PLIST "DU SHOW PLI 
ST "ER SHOW PLIST "SIE 

EaON [DU)J) 

[aV LICHI aN [LER]]I 

[@aN [SIE] 23V [DU)) 

[93V LCER]] 


?PPS 

SIE’S @V IS LER] 
DU’S UV IS LICH] 
DU’S @N IS [LER] 
ICH’S aN 1S [DU] 
ER’S @aN 1S [SIE] 
ER’S @V IS [DU] 


Wir haben diese vier Personalpronomen gewählt, um auch durch diese 
logische Namensabfolge die Verkettung hervorzuheben. Weitere Eigen- 
schaften weisen diese Listen noch nicht auf, da wir Grundfunktionen 
bezüglich der Verkettung vorstellen wollen. 

Als erstes wollen wir eine Benutzeroperation entwickeln, die den Nach- 
folger einer Eigenschaftsliste ermittelt: 


TO NACHF :VON 
OUTPUT FIRST GPROP :VON "aN 
END 


In dieser Form wird uns die Operation wenig Freude bieten, da beim 
Arbeiten mit ihr bei fehlendem Nachfolger ein Programmabbruch die Folge 
wäre. Bei fehlendem Nachfolger sollte die leere Liste geliefert werden. Mit 
dem CATCH-Befehl können wir den auftretenden Programmfehler abfan- 
gen und dann die leere Liste liefern. 


TO NACHF :VON 
CATCH "ERROR [OP FIRST GPROP :VON "aN] 
END 


Doch beim Austesten dieser Funktion stoßen wir auf einen weiteren 
Schönheitsfehler. CATCH arbeitet nur eindeutig, wenn in der nachgestell- 
ten Anweisungsliste Befehle sind. OUTPUT «reicht» aufgetretene Fehler 
nicht durch, so daß wir dennoch einen Programmabbruch erfahren würden. 
Eine kleine Änderung beseitigt diesen Mangel. 
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TO NACHF :VON 


CATCH "ERROR IMAKE "VON FIRST GPROP :VON "aN OP :VON] 
OP EL] 


END 


?PR NACHF "DU 
ER 


?SHOW NACHF "SIE 
[) 


?SHOW PLIST NACHF "DU 
[3N [SIEI WW [DU)) 


Mit dieser Grundfunktion können wir mit wenig Aufwand zwei weitere 
Funktionen definieren, die die Anzahl der Nachfolger einer Liste und den 
n-ten Nachfolger einer Liste liefern. 


TO ANZ .NACHF :VON 
LOCAL "N 

MAKE "N 0 

LABEL "START 

MAKE "VON NACHF :VON 
IF EMPTYP :VON [OP :N] 
MAKE "N ıN + 1 

GO "START 

END 


TO NTER.NACHF :VON :N 


CATCH "ERROR [REPEAT :N IMAKE "VON NACHF :VON]] 
IF EMPTYP ERROR [OP :VON]I [OP L£)) 
END 


?PR ANZ .NACHF "ICH 
3 


?PR ANZ .NACHF "SIE 
0 


?SHOW NTER..NACHF "ICH 2 
[0] 


?SHOW PLIST NTER.NACHF "ICH 3 
[93V [ER)]] 


In gleicher Weise lassen sich abgestellt auf die Vorgänger einer Eigen- 
schaftsliste solche Funktionen definieren: 
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TO VORG :VON 

CATCH "ERROR [MAKE "VON FIRST GPROP :VON "3V OP :VON]] 
OP L[] 

END 


TO ANZ .VORG :VON 
LOCAL "N 

MAKE "N 0 

LABEL "START 

MAKE "VON VORG :VON 

IF EMPTYP :VON LOP :N] 
MAKE "N :N + 1 

GO "START 

END 


TO NTER.VORG :VON :N 

CATCH "ERROR [REPEAT :N [IMAKE "VON VORG :VON]] 
IF EMPTYP ERROR [OP :VON]J LOP L£)) 

END 


Eine interessante Erweiterung unserer Funktionen wäre eine Suchfunk- 
tion, die einen bestimmten Nachfolger ermittelt, der durch vorgegebene 
Eigenschaften gekennzeichnet worden ist. 


TO SUCH.NACHF :VON :MERKMAL 

LABEL "START 

MAKE "VON NACHF :VON 

IF EMPTYP :VON LOP L[L)) 

IF MEMBERP LAST :MERKMAL GPROP :VON FIRST 
ıMERKMAL LOP :VON] 

GO "START 

END 


Der Funktionsparameter :MERKMAL ist eine Liste, die als erstes 
Element den Namen der Eigenschaft enthält, gefolgt vom Inhalt. Um diese 
Funktion zu testen, wollen wir unsere vier Eigenschaftslisten mit der 
Eigenschaft ”MITFAHRER erweitern. Diese vier Eigenschaftslisten könn- 
ten das Ergebnis von Fahrzeugkontrollen sein, bei denen die Fahrzeugin- 
sassen festgestellt worden sind. Sehen wir uns zuerst diese geänderten vier 
Listen an, bevor wir unsere Funktion SUCH.NACHF ausprobieren: 


?PPS 

DU’S @N IS LER] 

DU’S U IS LICHI 

DU’S MITFAHRER IS [GERD CLAUDI] 
SIE’S @V IS LER) 

ICH’S @N IS [DU] 

ICH’S MITFAHRER IS [HEINZ KLAUS] 
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ER’S aV 1S [DU] 
ER’S aN IS [SIE)I 
ER’S MITFAHRER IS LLISA ERNA SIE] 


?SHOW SUCH.NACHF "ICH [MITFAHRER ERNA] 
ER 


?SHOW GPROP SUCH.NACHF "ICH [IMITFAHRER ERNA] 
"MITFAHRER [LISA ERNA SIE] 


Diese Suchfunktion durchsucht den Datenbestand nur bezüglich eines 
Merkmals. Mit geringem Mehraufwand können andere Suchfunktionen 
definiert werden, die mehrere Kriterien überprüfen. 

Die vorgestellte Idee läßt sich schnell zu einem größeren Projekt fortent- 
wickeln. Neue Bausteine könnten entworfen werden, um größere Datenbe- 
stände auf externen Speichern zu durchsuchen. Die Aussagen der Listen 
können durch weitere Merkmale erweitert werden. Abgestellt auf unser 
Kontrollsystem könnten Daten zusätzlich über den Kfz-Eigentümer, den 
Fahrer, die amtliche Kfz-Zulassung, den Pkw-Typ, das Datum der Polizei- 
kontrolle und als Ergänzung zu den Namen noch die Persönenkennziffer 
gesammelt werden. Über die Personenkennziffer gewinnt man schnell 
weitere personenbezogene Daten aus anderen Dateien anderer Behörden. 
Die Eigenschaftsliste ist im folgenden Beispiel um diese Eigenschaften 
erweitert worden. 


?PPS 

DU’S KFZZUL IS LOF RW 769) 

DU’S PKW IS [BMW 7000] 

DU’S DATUM IS [12 MAI 83) 

DU’S FAHRER IS [LLISA PK12] 

DU’S aN 1S LER) 

DU’S 3 IS LICH] 

DU’S MITFAHRER IS [GERD PKY87 CLAUDI PK 696] 
SIE’S 93V IS LER] 

ICH’S aN 1S [DU] 

ICH’S MITFAHRER 1S [HEINZ KLAUS] 
ER’S 3V IS [DU] 

ER’S N IS [SIE)I 

ER’S MITFAHRER 1S I[LISA ERNA SIE] 


Viele Auswertungsfunktionen könnten wir mit wenig Aufwand erstellen, 
um unterschiedlichste Informationen zu gewinnen. 
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Zu welchen Personen hat XYZ mit der Personenkennziffer PK123 in den 
Monaten Mai bis August Kontakt gehabt? 

Kennt Maier den Müller? 

Welche Pkw-Typen bevorzugt XYZ als Leihwagen? 

Aus welchen Wohnorten kommen die Kontaktpersonen von XYZ (geht 
nur in Verbindung mit der Personenkennziffer und vorhandenen Einwoh- 
nermeldedaten)? 

Hat XYZ den Pkw mit der Zulassung OF... je gefahren? 
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Bisher haben wir Funktionen zu Gesamtprogrammen zusammengefaßt, 
und diese Programme haben Wörter und Listen verarbeitet. Doch die in 
Logo definierten Funktionen selbst können als Daten betrachtet werden, 
die dann wie gehabt als Listen und Wörter verarbeitet werden können. Die 
beiden grundsätzlichen Logofunktionen hierfür sind TEXT und DEFINE. 

Die Funktion TEXT wandelt die jeweils angegebene Benutzerfunktion in 
Daten um. Probieren wir’s gleich einmal an der schon bekannten Funktion 
VERS aus. 


?PO "VERS 

TO VERS :FLUSS 

PR <& SENTENCE "DIE :FLUSS LIST SO SCHOEN] ) 
PR SE [DRUM WOLLEN WIR DIE] :FLUSS L[SEH’N]I > 
END 


?PRINT TEXT "VERS 
EFLUSSI [PR < SENTENCE "DIE :FLUSS LIST SO SCHOEN] 
EDRUM WOLLEN WIR DIEI :FLUSS LSEH’NI )] 


TEXT liefert also eine Benutzerfunktion in Form einer Liste. Jedes 
Listenelement entspricht einer Anweisungszeile der Benutzerfunktion, die 
wiederum eine Liste ist. Das erste Element ist immer eine Liste mit den 
Namen der in der Kopfzeile verwendeten Funktionsparameter. Hat eine 
Funktion keine Eingabevariablen, so ist die erste Liste die leere Liste. 

Weisen wir einmal der Globalvariablen ”FLUSS das Ergebnis von TEXT 
"VERS zu. Dann wollen wir einfach die einzelnen Listenelemente unterein- 
ander ausdrucken. 


TO UNTER :LISTE 

IF EMPTYP :LISTE [STOP] 
PR FIRST :LISTE 

UNTER BF :LISTE 

END 
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?MAKE "FLUSS TEXT "VERS 


?UNTER :FLUSS 

FLUSS 

PR < SENTENCE "DIE :FLUSS LIST SO SCHOEN] ) 
PR SE [DRUM WOLLEN WIR DIE] :FLUSS [SEH’N]I > 


Wir können natürlich auch jedes einzelne Element der Listenelemente 
ermitteln und ausdrucken. Fügen wir zu diesem Zwecke eine weitere 
Anweisungszeile in UNTER ein. 


TO UNTER :LISTE 

IF EMPTYP :LISTE [STOP)I 
TEST LISTP FIRST :LISTE 
IFT LUNTER FIRST :LISTE]I 
IFF [PR FIRST :LISTE)I 
UNTER BF :LISTE 

END 


?UNTER :FLUSS 


SCHOEN 
> 

PR 

SE 
DRUM 

WOLLEN 

WIR 
DIE 
:FLUSS 
SEH’N 
> 


Mit diesen wenigen Erläuterungen wird klar, daß wir jedes Benutzerpro- 
gramm bis ins kleinste Detail untersuchen und manipulieren können, sofern 
auch die Umkehrung möglich ist, nämlich eine Liste mit Programmdaten zu 
einer Funktion zu machen. Dieser Befehl lautet DEFINE. Erstellen wir 
eine Benutzerfunktion mit dem Namen ”DONAU, die den Anweisungen 
der Globalvariablen ”FLUSS entspricht. 
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?DEFINE "DONAU :FLUSS 


?POTS 

TO DONAU :FLUSS 
TO UNTER :LISTE 
TO VERS :FLUSS 


Wir sollten uns ein wenig mit DEFINE vertraut machen. Die erste 
Eingabe von DEFINE ist der gewünschte Programmname, die zweite 
Eingabe ist eine Liste, die die Anweisungszeilen eines Benutzerprogramms 
in Form einzelner Listen enthält. Diese Liste kann das Ergebnis von 
unterschiedlichen Listenoperationen sein. Das nächste Beispiel zeigt, daß 
verschiedene Listen zu einer Gesamtliste zusammengesetzt werden, die 
dann ein neues Programm ergeben. In dem Mosel-Beispiel müssen wir 
jeweils bei den beiden Zusatzlisten :FLUSS mit BUTFIRST das erste 
Element entfernen, da die Eingabevariable hier zu einem Fehler führen 
würde. 


?DEFINE "MOSEL (SE TEXT "DONAU BF :FLUSS BF :FLUSS) 


?PO "MOSEL 

TO MOSEL :FLUSS 

PR < SENTENCE "DIE :FLUSS LIST SO SCHOEN] > 
PR SE EDRUM WOLLEN WIR DIEI :FLUSS [SEH’N]I ) 
PR < SENTENCE "DIE :FLUSS LIST SO SCHOEN] ) 
PR SE [DRUM WOLLEN WIR DIE] :FLUSS [SEH’NI >) 
PR < SENTENCE "DIE :FLUSS [LIST SO SCHOEN] > 
PR SE EDRUM WOLLEN WIR DIEI :FLUSS [LSEH’N]I ) 
END 


Das nächste Beispiel soll ein Programm zeigen, das ein neues Programm 
erzeugt. Ein eingegebenes Wort soll zu einem Programmnamen, einem 
Funktionsparameter und einer im Programm verwendeten Textkonstanten 
gleichen Namens werden. Sehen wir uns zur Verdeutlichung die durch 
TAUFE erzeugten Programme CLAUDI und LISA an, damit der kompli- 
ziert klingende Sachverhalt klar wird. 


TO TAUFE 

PRINT [WIE LAUTET DEIN VORNAME ?] 

LOCAL "NAME 

MAKE "NAME FIRST RL 

PR LIST € LIST :NAME > < LIST "PR "< "SE WORD "" 
:NAME WORD ": :NAME "",„ ""WIE [GEHT ES ?]1 ") 
END 


?TAUFE 

WIE LAUTET DEIN VORNAME ? 

CLAUDI 

[CLAUDII [PR < SE "CLAUDI :CLAUDI ", "WIE [GEHT 
ES ?1 >] 
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?TAUFE 

WIE LAUTET DEIN VORNAME ? 

LISA 

[LISA]I [PR < SE "LISA :LISA ", "WIE [GEHT ES ?] )) 


Das Programm TAUFE muß also eine entsprechende Liste erzeugen. 
Betrachten wir TAUFE in einer geänderten Version, in der die erzeugte 
Liste mit PRINT ausgedruckt wird, damit wir genau die Anweisungszeile 
studieren können. Wem so manches unklar ist, sollte TAUFE ändern und 
kontrollieren, was dann passiert. Nur so kann diese kleine Schwierigkeit mit 
Erfolg gemeistert werden. Wir müssen nämlich einmal mit WORD Anfüh- 
rungsstriche und Doppelpunkte vor den Inhalt der Variablen :NAME 
setzen, damit später die Anweisungszeile entsprechend ”CLAUDI oder 
”LISA und :LISA als Inhalte bekommt. Ändern wir nun TAUFE und 
ersetzen den PRINT-Befehl durch den DEFINE-Befehl. 

TO TAUFE 

PRINT [WIE LAUTET DEIN VORNAME ?] 

LOCAL "NAME 

MAKE "NAME FIRST RL 

DEFINE :NAME LIST <LIST :NAME)> «LIST "PR "< 
"SE WORD "" :NAM 


E WORD ": :NAME "", ""WIE [GEHT ES ?] "3 
END 


?TAUFE 
WIE LAUTET DEIN VORNAME ? 
CLAUDI 


?TAUFE 
WIE LAUTET DEIN VORNAME ? 
LISA 


?PO [CLAUDI LISA]I 

TO CLAUDI :CLAUDI 

PR < SE "CLAUDI :CLAUDI ", "WIE [GEHT ES ?] ) 
END 


TO LISA :LISA 
PR € SE "LISA :LISA ", "WIE [GEHT ES ?)] > 
END 


?CLAUDI [MEIN MAEDCHEN] 
CLAUDI MEIN MAEDCHEN „ WIE GEHT ES ? 


?LISA [L, MEINE LISA] 
LISA „ MEINE LISA „ WIE GEHT ES ? 


In Kapitel 29 und 30 wollen wir ein Programm zum Analysieren von 
größeren Benutzerprogrammen kennenlernen und ein weiteres Programm, 
das gegebene Programmdaten in andere Programme umwandelt. 


TEIL C 


Größere Programmbeispiele 
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Logo in Deutsch 


Aufgabe: In diesem Kapitel wollen wir unser eigenes Sprachsystem erstel- 
len. Wir wollen deutschsprachige Befehle und Operationen erzeugen und 
Programme mit der neuen Sprache schreiben. Auf diese Weise können wir 
für Unterrichtszwecke unterschiedliche Logosysteme aufeinander abstim- 
men und den gleichen Sprachvorrat definieren. Auch altersstufenorientier- 
te neue Sprachelemente können so erstellt werden. Abschließend überle- 
gen wir uns Hilfsprogramme, die elegant solche Funktionen generieren. 
Folgende Befehle und Operationen sollen erzeugt werden: 


Langform Kurzform Bedeutung 
WENN IF 
WIEDERHOLE REPEAT 
DRUCK DR PRINT 
LEERP EMPTYP 
ERSTES FIRST 
OHNEERSTES OE BUTFIRST 


Lösungsweg 1: Jeder der genannten Befehle oder Operationen wird der 
Name einer benutzerdefinierten Funktion. Gleiches gilt auch für die Ab- 
kürzungen, die als neue Funktionen definiert werden müssen. In der 
Kopfzeile muß jeweils die entsprechende Eingabevariable vorgesehen wer- 
den. Der Inhalt der Funktion besteht nur aus einer Zeile mit der umzuset- 
zenden Bedeutung der Funktion. Bei Operationen muß zusätzlich ein 
OUTPUT vorangestellt werden. Folgend werden eine Operation und ein 
Befehl gezeigt und anschließend getestet: 


TO ERSTES :0OBRJ 
or FIRST :0ERJ 
END 


Logo in Deutsch 199 


TO DRUCH :0ORJ 
FRINT :O0ORJ 
END 


Ber 


DRUCK ERSTES ERSTES CICH DU] 
I 


> 


Es folgt die Auflistung aller geforderten neuen Befehle und Operationen: 


TO WENN :O0BJ :LISTE 
IF :0BJ :LISTE 
END 


TO WIEDERHOLE :OBJ :LISTE 
REPEAT :0BJ :LISTE 
END 


TO DRUCK :OBJ 
PRINT :OBJ 
END 


TO DR :OBJ 
PR :OBJ 
END 


TO LEERP :OBJ 
OUTPUT EMPTYP :0BJ 
END 


TO ERSTES :0BJ 
OUTPUT FIRST :OBJ 
END 


TO OHNEERSTES :0BJ 
DUTPUT BUTFIRST :0BJ 
END 


TO OE :OBJ 
BUTPUT BF :O0BJ 
END 
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Das folgende Programm UNTEREINANDER soll unsere neue Sprache 
beispielhaft testen. Das eingegebene Wort soll senkrecht untereinander 
ausgedruckt werden. 


TO UNTEREINANDER :WORT 

WENN LEERP :WORT [HALT] 

DRUCK ERSTES :WORT 
UNTEREINANDER OHNEERSTES :WORT 
END 


UNTEREINANDER "STEIL 


r mu 


Die Kontrollstruktur HALT im vorangegangenen Beispiel ersetzt den 
Logobefehl STOP. Würden wir an dieser Stelle statt dessen STOP vorse- 
hen, so würde dieses STOP nur innerhalb unseres WENN zur Ausführung 
gelangen, aber nicht UNTEREINANDER stoppen. Daher müssen wir 
innerhalb von WENN mit TOPLEVEL einen Gesamtabbruch erzwingen. 
TOPLEVEL und STOP sind ausführlich bereits im Kapitel Kontrollstruktu- 
ren besprochen worden. 


TO HALT 
THROW "TOPLEVEL 
END 


Die deutschsprachigen Operationen und Befehle sollten zu einem Paket 

verschnürt und unsichtbar im Speicher gehalten werden. Die Anwendung 
von Paketen wird in Kapitel 13 beschrieben. 
Eine nützliche Hilfsroutine zum Definieren solcher Benutzerfunktionen 
stellt OPERATIONEN dar. Wir brauchen nur noch in einer Liste die 
Logooperationen und in einer weiteren Liste die Namen der neuen selbst- 
definierten Operationen anzuführen. Diese beiden Listen und das Pro- 
gramm legen wir dann auf einer Diskette ab. Es folgt der Ausdruck von 
OPERATIONEN und ein kleiner Test. 


TO OPERATIONEN :NEU :ALT 

IF EMPTYP :NEU [STOP] 

DEFINE FIRST :NEU LIST [OBJ] € LIST "OUTPUT FIRST :ALT ":0BJ ) 
DPERATIONEN BF :NEU BF :ALT 

END 
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> 


?OPERATIONEN [LETZTES VORWAERTSI [LAST BL] 
Re) 
5 


OPERATIONEN [ZAEHLE LETZTES] [COUNT LAST] 


n 


?PO "ZAEHLE PO "LETZTES 
TO ZAEHLE :QRJ 

QUTPUT COUNT :0BJ 

END 


TO LETZTES :0BJ 
OP LAST :O0BJ 
END 


Befehle können wir entsprechend durch eine Routine erzeugen lassen. 
Hierzu muß nur das Wort "OUTPUT in der dritten Zeile von OPERATIO- 
NEN entfernt werden und ein neuer Funktionsname - beispielsweise BE- 
FEHLE - vergeben werden. 


TO BEFEHLE :NEU :ALT 

IF EMPTYP :NEU [STOP] 

DEFINE FIRST :NEU LIST [COBJ]I ( LIST FIRST :ALT ":0BJ ) 
BEFEHLE BF :NEU BF :ALT 

END 


Lösungsweg 2: Die obige Lösung gilt für alle Logosysteme. Manche 
Logosysteme erlauben ein Umtaufen der Namen der Systemfunktionen 
selbst. In diesem Fall müssen wir nicht neue Funktionen erstellen. Hierzu 
müssen wir als erstes den Modus zum Umdefinieren von Logofunktionen 
einschalten. Das geschieht mit 

MAKE ”REDEFP "TRUE 

Als nächstes brauchen wir Logo nur zu sagen, wie der neue Name einer 
Funktion sein soll. Die Definition einer Logofunktion wird diesem neuen 
Namen übertragen. Der Befehl lautet beispielsweise: 

COPYDEF “DRUCK “PRINT. 

Nach COPYDEF wird die neue Bezeichnung eingegeben und als zweites 
die Logofunktionsbezeichnung. 

Testen wir gleich einmal diese Möglichkeit, Logofunktionen umzubenen- 
nen. Taufen wir die benötigten Logofunktionen für unser Beispiel UNTER- 
EINANDER um. Ersetzen wir vorher noch das HALT durch STOP. 
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> 


MAKE "REDEFP "TRUE 

7 

?COPYDEF "WENN "IF 

?COPYDEF "LEERP "EMPTYP 
?COPYDEF "DRUCK "PRINT 
?COPYDEF "ERSTES "FIRST 
?COFYDER "OHNEERSTES "BUTFIRST 


7 


TO UNTEREINANDER :WORT 

WENN LEERP :WORT [STOP] 

DRUCK ERSTES :WORT 
UNTEREINANDER OHNEERSTES :WORT 
END 


Lassen wir jetzt unser UNTEREINANDER ablaufen, müßte alles klap- 
pen. Die Abbruchbedingung STOP bricht UNTEREINANDER ab, da 
WENN von Logo nicht als benutzerdefinierte Funktion, sondern als Sy- 
stemfunktion (primitive) interpretiert wird. Das bestätigt auch Logo, wenn 
wir versuchen, die vermeintliche Benutzerfunktion WENN auszudrucken: 


?PO "WENN 
WENN IS A PRIMITIVE 


Eine nützliche Hilfsroutine zum Umdefinieren von Logofunktionen ist 
folgendes Programm. Speichern wir dieses mit den entsprechenden Listen 
der alten und neuen Namen auf einer Diskette, so können wir jederzeit 
schnell unser deutsches Logo erzeugen. 


TO UMTAUFEN :NEU :ALT 

MAKE "REDEFP "TRUE 

IF EMPTYP :NEU [STOP] 

COPYDEF FIRST :NEU FIRST :ALT 

UMDEFINIEREN BF :NEU BF :ALT 

END 

? 

?PONS 

ALT IS EPRINT PR REFEAT IF FIRST RUTFIRST BF EMPTYP) 


NEU IS [DRUCK DR WIEDERHOLE WENN ERSTES OHNEERSTES DE LEERF) 
? 
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In Apple-Logo lassen sich sogar die Funktionen TO und GO umdefinie- 
ren. Aber die Einsprungmarke, die mit LABEL definiert wird, kann nicht 
umbenannt werden, da auf Maschinenebene nach einer Sprunganweisung 
immer die Marke über LABEL gesucht wird. 


2 


?UMTAUFEN LPROGRAMM SPRINGE] [TO 60] 
? 


?PROGRAMM "SCHLEIFE :WORT 
LABEL "ANFANG 

>DRUCK = WORT 

>DRUCK [MIT CTRL-G STOPPEN] 
>SPRINGE "ANFANG 

>END 

SCHLEIFE DEFINED 

? 


n 


?SCHLEIFE [SO IST DAS ALSO !] 
SO IST DAS ALSO ! 

MIT CTRL - G STOPPEN 

SO IST DAS ALSO ! 

MIT CTRL - G STOPPEN 

So IST DAS ALSO ! 

MIT CTRL - 6 STOPPEN 

STOPPED! IN SCHLEIFE: 

DRUCK [MIT CTRL - G STOFPEN] 
2 
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Aufgabe: Bei der Ausstellung von Schecks Beispiel: 
oder in Verträgen werden Zahlen häufig in 321 
Wörtern ausgeschrieben. Wir wollen ein 


Programm erstellen, das beliebige dreistel- ia en 


lige Zahlen (1 bis 999) in die entsprechen- \ 
den Wörter umwandelt. DREIHUNDERT:- 
EINUNDZWANZIG 


Lösungsweg: Wir zerlegen diese Aufgabe in drei Teilprogramme. Die 
eingegebene Zahl kann drei-, zwei- oder einstellig sein. Die Teilprogramme 
erhalten die entsprechenden Namen DREISTELLIG, ZWEISTELLIG und 
EINSTELLIG. 

Sinnvollerweise überprüfen wir auch gleich die Zahl auf ihre Zulässig- 
keit, bevor sie verarbeitet wird und zu Fehlern oder Programmabbrüchen 
führt. Diese Fehlerprüfung bezeichnen wir mit dem Namen FEHLERP. 
FEHLERP ist als Beispiel in Abschnitt 7.2 bereits beschrieben worden. 
FEHLERP untersucht, ob die Eingabe überhaupt eine Zahl ist, ob sie 
ganzzahlig ist und im Bereich von 1 bis 999 liegt. Führende Nullen sollen 
ebenfalls nicht zulässig sein. 

Das bisher Gesagte können wir schematisch in einem sogenannten Struk- 
togramm darstellen. Solche Fallunterscheidungen lassen sich auf diese 
Weise gut beschreiben. 
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Die zu verarbeitende Zahl mit der Prüfroutine FEHLERP auf Fehler 
untersuchen. 


Abhängig von der Anzahl der Ziffern unserer 
Zahl wird das Teilprogramm 
2 Ziffern ausgeführt 


3 Ziffern 


dreistellig zweistellig einstellig 


In Logo gibt es nur die Operation COUNT zum Zählen der Elemente 
einer Liste. Die selbstdefinierte Operation zum Ermitteln der Zeichen oder 
Ziffern eines Wortes nennen wir einfach LAENGE. Das Leitprogramm 
stellt sich dann wie folgt dar: 


TO ZAHL.WORT : ZAHL 

IF FEHLERP :ZAHL [STOP] 

OP RUN LIST FALL LAENGE :ZAHL T[EINSTELLIG 
ZWEISTELLIG DREISTELLIG]JI : ZAHL 

END 


Die Mehrfachauswahl FALL ist bereits in Kapitel 24 erläutert worden. 
Die Operation LAENGE wandelt das eingegebene Wort in eine Liste um. 
Dann wird mit COUNT die Anzahl der Listenelemente gezählt. Die 
Umwandlung in eine Liste nimmt die Rekursion LG vor. 


TO LAENGE : TXT 
OP COUNT LG :TXT 
END 


TO LG :TXT 

IF EMPTYP :TXT [OP []] 

OP SE FIRST :TXT LG BF :TXT 
END 


TO FALL :FALL :FAELLE 
OP ITEM :FALL :FAELLE 
END 
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Jetzt machen wir uns an die Lösung der drei Teilprogramme. Nehmen wir 
uns ZWEISTELLIG vor. Sammeln wir einmal ungeordnet, was ZWEI- 
STELLIG alles zu berücksichtigen hat. 

— Verarbeitet alles von 10 bis 99. 
— Standardbeispiel wäre dreiundzwanzig für 23; das heißt die Einer plus das 

Wort «und» plus die Zehner. 

— Sonderfälle sind die Zahlen 11 bis 19, die Zehner (20, 30, ...) und die 

Zahlen 21, 31, ... (einundzwanzig und nicht einsund....). 


Die Lösung von ZWEISTELLIG könnte sein: 

1. Falls die Zahl größer als 10 und kleiner als zwanzig ist, dann 11.BIS.19 
und STOP. 

2. Falls die Zahl eine Zehnerzahl ist (Null am Ende), dann das Programm 
ZEHNER und STOP. 

3. Falls am Ende der Zahl eine Eins ist, dann den Sonderfall EIN.UND und 
STOP. 

4. Ein Wort bilden durch Verarbeiten der letzten Ziffer, dem Wort «und» 
und den Zehnern. 


TO ZWEISTELLIG : ZAHL 

IF LAST :ZAHL = 0 [OP ZEHNER :ZAHL STOP] 

IF LAST :ZAHL = 1 [OP EIN.UND :ZAHL STOP] 

IF :ZAHL < 20 [OP 11.BIS.19 :ZAHL STOP] 

OP ( WORD EINSTELLIG LAST :ZAHL "UND ZEHNER : ZAHL ) 


TO EIN.UND > ZAHL 

IF :ZAHL = 11 [OP 11.B1S.19 : ZAHL] 
OF WORD "EINUND ZEHNER = ZAHL 

END 


T0 ZEHNER : ZAHL 
OP FALL FIRST :ZAHL EZEHN ZWANZIG DREISSIG VIERZIG FUENFZIG SECHZIG SIERZIE ACHTZIG NEUNZIG) 
END 


16 11.815,19 :ZAHL 
DP FALL BF ZAHL TELF ZWGELF DREIZEHN VIERZEHN FUENFZEHN SECHZEHN SIERZEHN ACHTZEHN NEUNZEHN] 
END 


10 EINSTELLIG :ZAHL 
OP FALL :ZAHL [EINS ZWEI DREI VIER FÜENF SECHS SIEBEN ACHT NEUN] 
Erd 
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In ZWEISTELLIG ist die Reihenfolge der Lösungsschritte in 2, 3, 1 und 
4 geändert worden. Wir brauchen dadurch nur zu prüfen, ob die Zahl 
kleiner als zwanzig ist. 

Der Teilbaustein DREISTELLIG wird in Form des Ausdrucks vorge- 
stellt. Er benutzt die bekannten Teile ZWEISTELLIG und EINSTELLIG. 
HUNDERTER ist neu hinzugekommen und erzeugt die Hunderter. 


TO DREISTELLIG = ZAHL 

IF BF :ZAHL = Q [OP HUNDERTER : ZAHL STOP] 

IF BF zZAHL < 10 LOP ( WORD HUNDERTER :ZAHL "UND EINSTELLIG 
LAST :ZAHL ) STOP] 

IF BF :ZAHL = 10 [OP ( WORD HUNDERTER : ZAHL "UNDZEHN ) STOP] 
IF BF z:ZAHL < 20 LOP ( WORD HUNDERTER :ZAHL "UND 11.BIS.19 
BF :ZAHL ) STOP] 

OP ( WORD HUNDERTER :ZAHL "UND ZWEISTELLIG BF :ZAHL ) 

END 


TO HUNDERTER + ZAHL 
or MORD EINSTELLIG FIRST : ZAHL "HUNDERT 
END 


Programmtest 
Abschließend wollen wir unser Programm testen. Die Zahlen von 309 bis 
323 sollen gedruckt werden. Damit ist zumindest der Bereich der dreistelli- 
gen Zahlen ausgetestet. Zusätzlich sollten Zahlen getestet werden, die 
unser Prüfprogramm FEHLERP testen. Solche Zahlen wären zum Bei- 
spiel: 005, 3.6, .23, —6, 1000, ©. Wird auch 301 oder 1 richtig wiedergege- 
ben? 


?MAKE "1 309 

?REFEAT 15 [PR ZAHL.WORT :I MAKE "I :1#+1] 
DRETHUNDERTLINDNEUN 

DRE IHLINDERTUNDZEHN 
DREIHUNDERTUNDELF 

DRE IHUNDERTLNDZWOELF 
DREIHUNDERTUNDDREIZEHN 
DRETHUNDERTUNDVIERZEHN 
DRETHUNDERTUNDFUENFZEHN 

DRE IHUNDERTUNDSECHZEHN 
DRETHUNDERTUNDSTERZEHN 
DREIHLINDERTUNDACHTZEHN 

DRE THLUNDERTUNDNEUNZEHN 
DREIHUNDERTUNDZWANZIG 
DREIHUNDERTUNDEINUNDZWANZIG 
DRE THUNDERTUNDZWETUNDZWANZIG 
DRETHUNDERTUNDDREIUNDZWANZIG 
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Muster im Text- und Grafikmodus 


22.1 Texte in Großbuchstaben 


Texte können auf verschiedene Weise in Großbuchstaben geschrieben 
werden. Bereits die Buchstabengröße wäre ein Diskussionspunkt. Für 
Plakate könnten Buchstaben je Druckerseite gewünscht sein. Die pro- 
grammtechnische Lösung wäre ein weiterer Gesichtspunkt. 

Einfachster Fall wäre der Entwurf von Buchstaben als serielles Druck- 
programm, wie wir es bereits elementar in Kapitel 2 gemacht haben. Jeder 
Buchstabe entspräche einem auf der Diskette gespeicherten Programm. Ein 
Leitprogramm müßte uns jeweils buchstabenabhängig das Großbuchsta- 
benprogramm für diesen Buchstaben in den Arbeitsspeicher laden, zur 
Ausführung bringen, das Druckprogramm löschen und entsprechend mit 
dem Folgebuchstaben des Textes fortfahren. 

Wir wollen hier ein bescheideneres Buchstabenformat wählen. Ein Buch- 
stabe soll eine Größe von acht auf sieben Schreibstellen haben. Jeder 
Buchstabe soll dabei aus sich selbst aufgebaut sein. Sehen wir uns das 
Druckbeispiel auf der Folgeseite zur Verdeutlichung an. 

Die Grundidee ist einfach. Jeder Buchstabe wird durch ein 8x 7-Raster 
beschrieben: 


inielimlein] 
in] 
in} 


DOIDIID 
WI NND DNWWNIIN DAMM) 
ja) 
ja] 
ja] 
DUNND [ninin] 
[nIn} 


[alt] 
177] [m] 
[9] in] 
9] [n] 
[%] [n) 
DU DW 


14] 
[0] 
] 
[0] 
7] 
WIN DW 
WIND DW 


[9] 
[0] 
[0] 
[4] 


EEEEEEEE 
EE 

EE 
EEEEEE 
EE 

EE 
EEEEEEEE 
EEEEEEEE 
fE 

EE 
EEEEEE 
EE 


EE 
EEEEEEEE 


AA 
ARAA 
AAAAAA 
AA AA 


ARAAAAAA 
AA AA 
AA AA 


GG6666G 
66 GG 
6G 
66 
GG 6666 
66 GG 
GG6666GG 
MM 
MMM 


3 
en 


3332 


an 


10} [4] 
Q [0] 
[0] [u] 
9 0] 
aou un 3223 


D Dann 


[u] 
0] 
[0] 
[9] 
9 
143] 
[] 
(d] 


RRRR 
RR 


RR 
RRRR 


CCSCCCC DIRINARD 
CC CEcCC DIRRIIAID 
a 
a 


UUUUUU 


9555555 
Ss 5 
55 

ELTERN 

55 


ss 55 
6559555 


666666 EEEEEEEE 
66 66 EE 


66 EE 

66 EEEEEE 

66 6666 EE 

6666 EE 
666666 EEEEEEEE 


jeoleolsslealsuleetn] 


ZIZIIII 000000 
ZI 
I 


ZIIIIII 


BEER 
Z 
3Böggbz zu: 


000000 SSSSSSS 
00 00 SS ss 
00 00 Ss 
00 00 SSSSSSS 
00 00 B=3=} 
00 00 SS ss 

000000 SSSSSSS 

CCECCCC HH HH 
cc CC HH HH 
cc HH HH 
cc HHHHHHHH 
cc HH HH 
cc cC HH HH 

CCCCccc HH HH 

AA BBBBBB 
ARAA BB BB 

AAAAAA BB BB 
AA AA BB BBBB 
AAAAAAAA BB BB 
AA AA BB BB 
AA AA  BBBBBB 

AA LL PPPP HH HH 
AA LE PP PP HH HH 
ARRRA IL PP_ PP HH HH 

M AA LL PPPPPP HHHHHHHH 
LL PP HH HH 
MO AA LL PP HH HH 
A AA LLLLLLLL PP HH HH 
AA w uU CECCce 
AAO U WU cc ce 
AARAU WU cc 
MA AA Vu WU CC 
w uU cc 
MOAA U WU cc cc 
MA AA UUUUUU CCCCEE 
RRRRRR EEEEEEEE RRRRRR 
RR RR EE RR RR 
RR RR EE RR RR 
RRRRRR EEEEEE RRRRRR 
RR RR  EE RR RR 
RR RR EE RR RR 
RR RR EEEEEEEE RR RR 

CCCCCcc DDDDDD 
CC CC DD DD 
cc DD DD 
cc DD DD 
cc DD DD 
cc CC DD DD 

CCCcccc DDDDDD 

IIIIIlI JJJJJJ 

11 JJ 
11 JJ 
1:1 JJ 
11 JJ 
11 JJ__JJ 

111111 JJJJ 

000000 PPPPPP 
00 00 PP PP 
00 00 PP PR 
00 00 PPPPPP 
00 00 PP 
00 00 PP 

000000 - PP 
UU UU UV UV 
vu UU UV un 
uU UU WU wv 
UU UU UV un 
UU UU UV UN 
UU UU VUUU 

UUUUUU u 


SSSSSSS EEEEEEEE 
SS ss EE 
ss EE 
SSSSSSS EEEEEE 
SS EE 
SS EE 
SSSSSSS EEEEEEEE 
EEEEEEEE NN NN 
EE NNN NNN 
EE NNNN NN 
EEEEEE NN NN NN 
EE NN NNNN 
EE NN NNN 
EEEEEEEE NN NN 
AA BBBBBB EEEEEEEE TITTITTT 
AAA BB BB EE TT 
AMMAAA BB BB EE TT 
MA AA BB BBBB EEEEEE TT 
BB BB EE TT 
M MA BB BB EE 7 
AA AA BEBBBB EEEEEEEE 1T 
HH HH 1 MW NN 
HH HH 1 NN NN 
HH HH 11 NUN NN 
KHHHHHHH 1 NN NN N 
HR 11 NN NUN 
HH HH 11 NW NN 
HH HH 1m N NN 
FFFFFFFF 000000 RRRRR Mi Mi 
FF 00 00 RR RR MM MM 
FF 00 00 RR RR MM 
FFFFFFE 00 00 RRRRRR MA MM MN 
FF 00 00 RRRR MM MM 
FF 00 00 RR RR MI MM 
FF 000000 RR RR MI MA 
EEEEEEEE FFFFFFFF 
EE FE 
EE FF 
EEEEEE FEFFFF 
EE FE 
EE FF 
EEEEEEEE FF 
KK KK LL 
KK KK LL 
KK KK LL 
KKKK LL 
KK KK LL 
KK KK LL 
KK KK LELLLLLL 
jelelelrlele] RRRRRR 
jele] 0a@ RR RR 
jele oa@Q RR RR 
jele] 0Q@ RRRRRR 
aa QQaQ RR RR 
jele} jele} RR RR 
oaaQa QQ RR RR 
WW WW XX x 
WW WW XAXXKKRX 
WI LAJ xx 
WU UA LAN xx 
LVA WI LAN xxx 
KXXKKXK 
WU WI 
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Ein Druckmuster ließe sich unabhängig vom Buchstaben als Binärmuster 
darstellen. Ein Leerzeichen wird mit Null und ein zu druckender Buchstabe 
durch Eins gekennzeichnet: 


11000011 
01111110 
00111100 
00011000 
00111100 
01111110 
11000011 


Diese Formatbeschreibung könnte jetzt in einer Liste zusammengefaßt 
werden und dem Buchstaben ”X zugewiesen werden. Auf diese Weise 
könnten wir für das ganze Alphabet eine Druckbeschreibung jedes Buch- 
staben liefern. Speicherplatz können wir einsparen, indem wir die einzelnen 
Teilzeilen pro Buchstabens nicht binär, sondern als ihr Dezimaläquivalent 
speichern: 


?PRINT :X 
195 125 60 24 60 12% 195 


Im folgenden wollen wir die Rückverwandlung so verschlüsselter Buch- 
staben unter Zuhilfenahme der Druckroutine UNTER verdeutlichen. UN- 
TER druckt uns jedes Element der eingegebenen Liste untereinander aus. 
Jede Druckzeile entspräche damit der Zeile eines Großbuchstabens. 


TO WTER :LISTE :MACHE 
IF EMPTYP :LISTE [STOP] 
RUN :MACHE 

UNTER BF :LISTE :MACHE 
END 


?UNTER :X LPR FIRST :LISTE) 
195 
126 
60 
24 
60 
126 
195 


Mit der in Kapitel 10 erstellten Funktion DUALZAHL wandeln wir 
diese Dezimalzahlen in das benötigte Binärmuster um: 
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?UNTER :X LPR DUALZAHL FIRST :LISTE) 
11000011 

1111110 

111100 

11000 

111100 

1111110 

11000011 


In der ausgedruckten Form würde unser Buchstabe X verfälscht werden. 
Wir müssen die nicht ausgegebenen führenden Nullen voranstellen bezie- 
hungsweise alle Werte rechtsbündig ausdrucken. Die ebenfalls bekannte 
Funktion RBUEND macht das für uns. Da wir ein Zeichen Zwischenraum 
vorsehen wollen, lassen wir gleich alles auf neun Stellen rechtsbündig 
ausgeben: 


?UNTER :X [PR RBUEND DUALZAHL FIRST :L15 
TE 9) 
11000011 
1111110 
111100 
11000 
111100 
1111110 
11000011 


Die Funktion DUALZAHL wollen wir jetzt so ändern, daß statt der 
Ziffer 1 jeweils der gewünschte Druckbuchstabe erscheint und für 0 ein 
Leerzeichen. 


TO WANDLE :ZIFF 
IF sZzIFF = 1 [OP FIRST :TXT) [OP CHAR 32) 
END 


TO DUALZAHL ıDEZ 

IF :DEZ = 0 [OP *" ] 

OP WORD DUALZAHL QUOTIENT :DEZ 2 WANDLE REMAINDER 
ıDEZ 2 

END 


Da WANDLE für den PARAMETER :TXT eine Zuweisung benötigt, 
weisen wir ihr den Buchstaben ”X als zu druckendes Zeichen zu. 
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MAKE "TXT "X 


?UNTER :X [PR RBUEND DUALZAHL FIRST :LISTE 9] 
x xx 


Der Kern unseres Großbuchstabenprojekts ist damit beschrieben. Jetzt 
müssen wir berücksichtigen, daß ja mehrere solcher Buchstaben auf einer 
Seite nebeneinander erscheinen sollen. Hierzu müssen wir von den vorgese- 
henen Buchstaben jeweils die gleiche Teilzeile aus der Listenbeschreibung 
nehmen. Wird also die dritte Druckzeile ausgegeben, so muß für jeden 
Buchstaben die dritte Dezimalzahl entnommen werden und wie oben 
beschrieben in einer Zeile nacheinander umgewandelt werden. Dieses 
Herauspicken macht die Funktion DECODER: 


TO DECODER :LISTE :ELEMENT 


OP RBUEND <DUALZAHL ITEM :ELEMENT :LISTE) 9 
END 


?PR DECODER :X 1 PR DECODER :X 2 PR DECODER :X 3 
xx xx 

IRORX 

XXX 


Die Funktion ZEILE liefert jeweils eine Druckzeile für mehrere Buch- 
staben: 


TO ZEILE :TXT :ZNR 

IF EMPTYP :TXT [OP [)) 

OP SE DECODER FIRST :TXT :ZNR ZEILE BF :TXT :ZNR 
END 


?PR ZEILE "XXX 1 PR ZEILE "XXX 2 PR ZEILE "9X 3 
xx XXX XXX x 

RX KRRKKRX IRAK 

ROX RX X 
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Die Funktion DRUCKEN ist eine Zählschleife, die sieben Zeilen unter- 
einander ausgeben läßt, indem sie für ZEILE über die Variable ”I die 
jeweilige Teilzeile vorschreibt. 


TO DRUCKEN :TXT 


LOCAL "1 

MAKE "I 

REPEAT 7 [PR ZEILE :TXT :I MAKE "I ıl + 1) 

PR L[] 

END 

?DRUCKEN "HEIN FANS 
HH HH EEEEEEEE 111111 FFFFFFFF AA NN NN $S5SS5$ 
HH HH EE 11 FF ARARA NNN NNN SS ss 
HH HH EE 11 FF ARARAR NNNN NN SS 
HHHHHHHH EEEEEE 11 FFFFFF AA AA NNNN NN 5855S5$S5 
HH HH EE 11 FF ARARRARA NN NNNN ss 
HH HH EE 11 FF AA AA NN NNN SS ss 
HH HH EEEEEEEE 111111 FF AA AA NN NN $SSS$SS$ 


Die Verschlüsselung des Alphabets ist bei diesem Buch die aufwendigste 


Arbeit gewesen. In mühsamer Arbeit sind die Buchstaben eines Matrix- 
druckers aufgeschlüsselt worden, indem das Druckbild jedes Buchstabens 
ausgezählt worden ist. 


15 [24 40 126 195 255 195 195) 


15 [252 
[126 
[252 
1255 
[255 
[126 
[195 
1126 


1195 
[192 
1195 
[195 
[126 
[252 
[126 
1252 
1127 
[255 
[195 
[195 
[195 


E<cHV9 DO VDOZZTzZKUu- zo nmonu>D 
o 


[83 12 12 12 


195 
195 
198 
192 
192 
195 192 
195 195 
24 24 24 24 


195 
192 
195 
192 
192 


198 
192 
231 
231 
195 
195 
195 
195 195 252 
195 192 127 
24 24 24 24 
195 195 195 
195 195 195 
195 195 219 


204 
192 
255 
243 
195 
195 
195 


240 
192 
219 
219 
195 
252 
195 


195 
192 
195 
192 
192 
207 195 
195 195 
24 126) 


195 
195 
198 
192 
192 


252] 
126) 
252] 
255] 
192) 
128] 
195] 


12 204 120] 


204 
192 
195 
207 
195 
192 


198 
192 
195 
199 
195 
192 


195] 
255] 
195) 
195] 
124) 
192] 
205 198 123] 
204 198 195] 
3 195 127) 
24 24] 

195 195 126) 
102 60 24] 
219 255 102) 
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1S [195 126 60 24 40 126 195] 
1S [195 102 60 24 24 24 24) 
1S 1255 6 12 24 48 96 255] 

1S [0 102 40 255 80 102 0) 

1ıs [0 24 24 255 24 24 0] 

15 [0 0 0 60 &0 0 0) 
1510000000) 

? 15 [126 195 3 30 24 0 24) 

. 15 (00000 24 24] 

! 15 124 24 24 24 00 24) 


NR N-<X 


Abschließend sei das Gesamtlisting des Programms angefügt. Die Funk- 
tion GROBU hat eine Liste als Eingabe. Jedes Element der Liste ein Wort, 
das jeweils die höchstzulässige Zeichenanzahl entsprechend der Drucker- 
breite lang ist. 


TO GROBU :TXT 

IF EMPTYP :TXT [STOP] 
DRUCKEN FIRST :TXT 
GROBU BF :TXT 

END 


TO DRUCKEN :TXT 

LOCAL "1 

MAKE "I 1 

REPEAT 7 [PR ZEILE :TXT :I MAKE "I ıl + 1) 
PR I) 

END 


TO ZEILE :TXT :ZNR 

IF EMPTYP :TXT [OP [)) 

OP SE DECODER FIRST :TXT :ZNR ZEILE BF :TXT :ZNR 
END 


TO DECODER :LI1STE :ELEMENT 
OP RBUEND <DUALZAHL ITEM :ELEMENT :LISTE) 9 
END 


TO RBUEND :WORT :LAENGE 
OP WORD FUELLER * <«:LAENGE - COUNTW :WORT) :WORT 
END 


TO DUALZAHL :DEZ 

IF :DEZ = 0 [OP * ] 

OP WORD DUALZAHL QUOTIENT :DEZ 2 WANDLE REMAINDER :DEZ 2 
END 


TO WANDLE :ZIFF 
IF sZIFF = 1 [OP FIRST :TXT]J TOP CHAR 32] 
END 
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TO FUELLER :C :ANZ 

IF :sANZ = 0 [OP " I) 

OP WORD :C FUELLER :C :ANZ - 1 
END 


TO WORTINLISTE :WORT 

IF EMPTYP :WORT [OP [)) 

OP SE FIRST :WORT WORTINLISTE BF :WORT 
END 


TO COUWNTW :WORT 
OP COUNT WORTINLISTE :WORT 
END 


22.2 Punktraster auf dem Grafikschirm 


Der Grafikbefehlssatz von Logo enthält neben den vielen Turtlekomman- 
dos einen Punktbefehl, der an der angegebenen Position einen Punkt 
macht. Der DOT-Befehl hat eine Liste als Eingabe, die die x-Koordinate 
und die y-Koordinate enthält. Die x-Werte haben einen Bereich zwischen 
-140 und +140, die y-Werte einen Bereich zwischen —120 und +120. Der 
Bildschirm könnte also mittels kariertem Papier als ein Raster aus 240 x 
280 Bildpunkten dargestellt werden. Wenn wir uns die Mühe machen 
würden, Bilder in solcher Rasterform zu entwerfen und dann auch noch 
zeilenweise als Binärmuster auszuzählen, dann sind die notwendigen Pro- 
gramme zum Abbilden der Muster die geringste Arbeit. 
Nehmen wir doch gleich die bekannten Muster aus Kapitel 2: 


?UNTER :FINGER ?UNTER :KIRCHE 
01 001 

01 0101 

01 1000111 
01 10001001 
0111 100010001 
11111001 100010001 
1111101 111111111 
111111 

01111 

0111 


In Form einer Liste sind beide Figuren binär verschlüsselt worden. Die 
beiden Funktionen MUSTER und DOTS bilden uns solcherart beschriebe- 
ne Muster ab: 
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TO MUSTER :POS :32 

SETHEADING 90 

REPEAT COUNT :92 [START DOTS LAST :92 MAKE "32 BL 
ı982 MAKE " POS SE FIRST :POS SUM YCOR 1] 

END 


TO START 

PU 

SETPOS :POS 
END 


TO DOTS :BIN 

LABEL "START 

IF FIRST :BIN = i [PD DOT POS PU FD 1) [PU FD 1) 
MAKE "BIN BF :BIN 

IF NOT EMPTYP :BIN [GO "START] 

END 


DOTS macht nur bei vorkommenden Einsen einen Punkt und wandert 
horizontal einen Schritt nach rechts weiter. DOTS schreibt also eine Bild- 
zeile. In MUSTER schreiben wir zeilenweise von unten nach oben. Dabei 
wird die y-Koordinate nach jeder Zeile um den Wert 1 erhöht. Die 
Funktion START positioniert nach jeder Zeile die Turtle an den Zeilenan- 
fang der Folgezeile. Der Flamingo ist in Form einer Operation definiert 
worden, damit Verbesserungen leicht vorgenommen werden können: 


TO FLAMINGO 

LOCAL "S 

MAKE "S [0011 01111 10001 0001 0001) 
MAKE "S SE :5 [L00010000001111] 
MAKE "S SE :S L000010000111111]) 
MAKE "S SE :S [0000011111111111] 
MAKE "S SE :S L00000000111111111) 
MAKE "S SE :5S [000000000001001] 
MAKE "S SE :S [L000000000001001] 
MAKE "S SE : £0000000000010001) 
MAKE "S SE :S [000000000001 00001] 
MAKE "S SE : L[00000000000100001] 
MAKE "S SE :S [000000000001] 
MAKE "S SE :S [000000000001] 

OP :S 

END 


Wir können entsprechend dem im vorangegangenen Kapitel beschriebe- 
nen Verfahren natürlich auch auf dem Grafikschirm schreiben, indem wir 
Buchstaben in Form von Punktrastern abbilden. Im Folgebeispiel soll jeder 
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Buchstabe mit einem 5 x 7-Raster dargestellt werden. Zusätzlich sind eine 
Löschfunktion und vier Cursorbewegungsfunktionen vorgesehen, damit wir 
an beliebigen Bildschirmstellen schreiben können. Alle Funktionen sind 
tastengesteuert, das heißt, wenn wir dieses Schreibprogramm aufgerufen 
haben, bedienen wir unsere Eingabetastatur wie gehabt: Mit der DELETE- 
Taste wird ein Buchstabe gelöscht, mit den Tasten f,—, |) und«- wird die 
Turtle hin- und herbewegt. Mit der ESC-Taste verlassen wir diesen Schreib- 
modus. 


FLANINGO 
FINGER 
KIRCHE 


TSCRUNCH 2 


TO SCHREIBEN 

LOCAL "RC 

SETH 90 

LABEL "ANF 

MAKE "RC RC 

IF :RC = CHAR 27 [STOP] 

IF :RC = CHAR 95 I[LOESCHEN POS GO "ANF] 
TEST MEMBERP ASCII :RC [8 21 10 11] 

IFT [RUN <LIST WORD "C ASCII :RC) GO "ANF) 
2 POS THING :RC 

GO "ANF 

END 
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TO 2 :POS :32 

REPEAT 7 [ZEILE :POS LAST :92 MAKE "32 BL :92 MAKE 
"POS SE FIRST :POS SUM YCOR 1] 

PU SETY YCOR - & 

FD 2 

END 


TO ZEILE :POS :9L 

PU SETPOS :POS 

MAKE "3aL DUALZAHL :9L 

IF :@aL > "1111 [LDOTS :aL STOP] 

IF :aL > "111 LCDOTS WORD "O0 :9aL STOP] 
IF :@aL > "11 LDOTS WORD "00 :?@L STOP) 
IF :aL > "1 EDOTS WORD "000 :@L STOP] 
DOTS WORD "0000 :9aL 

END 


TO DOTS :BIN 

LABEL "START 

IF FIRST :BIN = 1 [PD DOT POS PU FD 1] LPU FD 1) 
MAKE "BIN BF :BIN 

IF NOT EMPTYP :BIN [GO "STARTI 

END 


TO LOESCHEN :POS 

REPEAT 7 [PU SETPOS :POS BK 3 C95 MAKE "POS SE FIRST 
POS SUM 1 LAST :POS] 

PU SETPOS SE XCOR YCOR - & 

END 


SETPOS SE SUM -8 XCOR YCOR 


SETPOS SE XCOR SUM -9 YCOR 


TO cı1 
PU 
SETPOS SE XCOR SUM 9 YCOR 


SETPOS SE SUM 8 XCOR YCOR 
PD 
END 
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IS [31 16 1% 30 16% 1% 31) 
Is ctıa 444 4 4 14] 

IS L1ı4 17 17 17 17 17 14) 
IS L1?7 17 17 17 17 17 149] 
IS [7 8 1% 30 17 17 14) 
IS [30 17 17 31 17 17 30] 
IS [17 17 17 31 17 17 17) 
IS [17 25 21 21 19 19 17] 
Is (sıa 444.4 4) 

IS [31 1% 30 1 1 17 14] 
IS [14 17 17 31 17 17 17) 
IS L17 27 21 21 17 17 17] 
IS L15 1% 1% 14 1 1 15] 
IS [17 17 17 14 4 4 4] 

IS [2 % 10 18 31 2 2) 

IS [31 16% 14 30 16 1% 16] 
IS [16 16 14 16 16 14 31) 
[30 17 17 30 20 18 17] 
IS [17 17 12 4 12 17 17) 
IS (30 1 2 4 2 1 30] 

IS L14 17 17 15 1 2 28] 
IS [17 18 20 24 20 18 17] 
IS L14 17 17 17 21 18 13) 
IS [17 17 17 21 21 27 17) 
Is L14 17 1 2 12 1& 31) 
IS L14 17 17 14 17 17 14] 
IS [28 18 17 17 17 18 28) 
IS (7 22 2 2 ı8 12] 

IS [30 17 17 30 16 16% 16) 
IS [17 17 17 ı2 12 4 4] 
IS cC000000 0] 

IS (31 112488] 

IS (31 1 24 8 16 31) 

Is t4 ı2 204 4 4 31] 

Is L14 17 19 21 25 17 14) 
IS [14 17 1% 19 17 17 15] 
IS [14 17 16 16 16 17 14) 


DODO-NN ZDUOONEDRUWUXATrNnNAE<UZDu-Zzuaco“m 
n 
[0] 


Da wir schon Bildchen und Beschriftungen machen können, wollen wir 
als Ergänzung zu Abschnitt 16.2.4.1 einen andersartigen Zeichenstift für 
die Turtle definieren. Wir wollen entsprechend den Ziffern einer Uhr nur 
die Ziffern von 1 bis 12 eintippen, um dann jeweils einen Strich in dieser 
Richtung mit einer Schrittweite 5 zu erhalten. Für 10 und 11 sind die Tasten 
A und B vorgesehen. 
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0 
11 1 


10 2 


Das Programm SCHREIBEN? löst diese Aufgabe. Auch hier sind die 
bereits bekannte Löschfunktion und die Cursorsteuerungsfunktionen vor- 
gesehen. 


TO SCHREIBEN2 

LOCAL "RC 

LABEL "ANF 

MAKE "RC RC 

IF :RC = CHAR 27 [STOP] 

TEST MEMBERP ASCII :RC [8 21 10 11 95) 

IFT ERUN <LIST WORD "C ASCII :RC) GO "ANF)I 
STRICHINRICHTUNG :RC 

G0O "ANF 

END 


TO STRICHINRICHTUNG :KURS 

TEST NUMBERP :KURS 

IFF LIF :KURS = "A IMAKE "KURS "10 I[MAKE 
"KURS 119) 

PENDOWN 

SETHEADING :KURS * 30 

FD 5 

END 


Wenn wir SCHREIBEN, SCHREIBEN und MUSTER im Arbeitsspei- 
cher haben, können wir alles mögliche erstellen. Diagramme, Rahmen, 
Unterstreichungen, Bilder, große und kleine Schriftzüge, Beschriftungen 
von Zeichnungen (vgl. Kapitel 27). Die unterschiedliche Schrifthöhe errei- 
chen wir, indem wir mit SETSCRUNCH den Abbildungsmaßstab verän- 
dern. In der Abbildung (S. 127) ist mit Werten von 1, 2 und 3 als Eingabe 
für SETSCRUNCH gearbeitet worden. 


23 
Bombardieren 


Die Idee zu diesem Computerspiel ist schnell erzählt. Jede Partei richtet 
vier dem Gegner nicht bekannte Stützpunkte oder Stellungen ein. Aus 25 
möglichen Positionen wählt jede Partei vier Positionen aus. Ähnlich dem 
Spiel Schiffe-Versenken hat jede Partei wechselweise einen Bombenabwurf 
oder einen Kanonenschuß frei, um ein gegnerisches Ziel zu zerstören. Jede 
Partei gibt jeweils nur ein mögliches Ziel an. Ist das Ziel getroffen, wird mit 
Piepen die Stellung sichtbar Stück für Stück ausradiert. Bei einem Fehl- 
schuß wird dieser nur angezeigt. Sehen wir uns einfach das folgende Foto 
mitten aus dem Spiel an: 


SIEPENNE"DerPBoSITTOREN"; =035"An 
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Wir sehen je Partei 25 Quadrate auf dem Schirm abgebildet. Ein Treffer 
ist durch vollständiges Ausfüllen kenntlich gemacht. Das Quadrat wird bei 
einem Fehlschuß einfach gekreuzt. Die Felder sind mit den Nummern 1 bis 
25 bezeichnet. Bei der jeweiligen Aufforderung zum Bombenabwurf muß 
also nur eine der genannten Zahlen eingetippt werden. 

Wir sehen, daß dieses Spiel mittels Turtlegrafik und unter Verwendung 
des unteren Textfensters gelöst worden ist. Die Turtle zeichnet die Quadra- 
te, kreuzt oder füllt sie. Für jedes Feld ist per Programm der linke untere 
Eckpunkt mit seinen Koordinaten festgelegt. Die Zuordnung von Koordi- 
naten und Stützpunktnummern soll im folgenden Koordinatensystem ver- 
deutlicht werden. Die linken Felder sind den rechten Feldern spiegelbild- 
lich zugeordnet, das heißt, die Eckpunkte haben bei gleichen y-Werten nur 
negative x-Werte. Die linken Felder sind die Stellungen des Spielers, die 
vom Computer unter Beschuß genommen werden. 


L 223.4 8 1: 2. 73:4: 3 100 
678910 678910 80 
11 12 13 14 15 11 12 13 14 15 60 
16 17 18 19 20 16 17 18 19 20 40 
21 22 23 24 25 21 22 23 24 25 20 


-100 -80 -60 -40 -20 20 40 60 80 100 


Bei Spielbeginn wählt der Spieler vier Stellungen aus, indem er vier 
Zahlen eintippt. Der Computer ermittelt über einen Zufallszahlengenera- 
tor ebenfalls vier Zahlen. Die fünfzig Felder werden dann von der Turtle 
auf den Bildschirm gezeichnet. Der Spieler wird zu Anfang noch nach 
seinem Vornamen gefragt, damit er spielerisch angeredet werden kann. 
Nach diesem Festlegen der Anfangsbedingungen werden wechselseitig vom 
Spieler und Computer Schüsse auf vermeintlich besetzte Stellungen abge- 
feuert. Nach jedem Schuß jeder Partei muß dann überprüft werden, ob ein 
Treffer vorliegt. Die Programme für die Aufbau- und Anfangsphase des 
Spiels werden im folgenden gezeigt: 
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TO BOMBARDIEREN 
SETCURSOR [LO 0] 
CLEARTEXT 
ERKLAERUNG 
DEIN.NAME 
POS.GEGNER 
FELDAUFBAU 
HIDETURTLE 
LABEL "DUELL 
BEDIENER 
COMPUTER 

GO "DUELL 

END 


TO ERKLAERUNG 
END 


TO DEIN.NAME 

CLEARTEXT 

PR [HALLO PARTNER, WIE HEISST DU ?] 
MAKE "NAME FIRST RL 

REPEAT 5 [PR " ] 

PR SE LICH BEGRUESSE DICH, LIEBER] :NAME 
REPEAT 5 [PR * ] 

PR [GIB DIE VIER STELLUNGEN EIN UND] 
PR " 

PR IWAEHLE VIER ZAHLEN VON 1 BIS 25) 
MAKE "POS.SPIELER RL 

END 


TO POS.GEGNER 

MAKE "POS.GEGNER L[) 

MAKE "MERKE [] 

LABEL "START 

MAKE "POS.GEGNER SE :POS.GEGNER ZUFALL 
IF COUNT :POS.GEGNER < 4 [GO "START]I 
MAKE "MERKE [] 

END 


TO FELDAUFBAU 

CLEARSCREEN 

SCHLACHTFELD L-20 -40 -&0 -80 -100)I YW 
SCHLACHTFELD XW YW 

END 


TO SCHLACHTFELD :X :Y 

IF EMPTYP :X LSTOP) 

REPEAT 5 [Q SE FIRST :X FIRST :Y. MAKE "Y BF :Y] 
SCHLACHTFELD BF :X YW 

END 
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TO Yu 

OP [100 80 60 40 20] 
END 

TO Xu 

OP [20 40 40 80 100] 
END 

TO ZUFALL 

LOCAL "SCHUSS 

LABEL "ANF 


MAKE "SCHUSS SUM 1 RANDOM 25 

IF MEMBERP :SCHUSS :MERKE [60 "ANF) 
MAKE "MERKE SE :MERKE :SCHUSS 

OP :SCHUSS 

END 


REPEAT 4 [FD 15 RT 90) 
END 


Die gewählten Stellungen des Spielers werden in der Globalvariablen 
:POS.SPIELER gespeichert, die mit ZUFALL erzeugten des Computers in 
:POS.GEGNER. Für den Computer muß noch die Variable :MERKE 
vereinbart werden, damit der Computer eine Kontrollmöglichkeit hat, um 
festzustellen, welche Stellungen er bereits unter Beschuß genommen hat. 
Zeigen wir den Dialog und die Inhalte der Globalvariablen bis zum Zeit- 
punkt nach dem ersten Schlagabtausch: 


?BOMBARDIEREN 
HALLO PARTNER, WIE HEISST DU ? 
DIEDELICH 


ICH BEGRUESSE DICH, LIEBER DIEDELICH 


GIB DIE VIER STELLUNGEN EIN UND 


WAEHLE VIER ZAHLEN VON 1 BIS 25 
11 13 15 17 
DIEDELICH ,„ DU BIST DRAN. LOS !! 


GIB EINE DER POSITIONEN 1 - 25 AN 
10 
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SO, MEIN FREUND JETZT BIST DU REIF ! 
DIEDELICH ,„ DU BIST DRAN. LOS !! 
G1B EINE DER POSITIONEN 1 - 25 AN 


PAUSING... IN BEDIENER: 
ERGEBNIS FIRST RL "GEGNER 
BEDIENER ?PONS 

POS.GEGNER 1S [5 3 8 17) 
MERKE IS [22] 

POS.SPIELER IS [11 13 15 17] 
NAME 15 DIEDELICH 


Wir haben die Stellung 10 bombardiert. Leider daneben. Die gegneri- 
schen Stellungen sind 5, 3, 8 und 17. Auch der Computer hat ein Luftloch 
hinterlassen. Der Computer merkt sich in :MERKE die gewählte Stellung, 
hier die Zahl 22. Die Spielerwahl finden wir in :POS.SPIELER mit 11, 13, 
15 und 17 wieder. 

Im Leitprogramm finden wir für jeden Spielzug die Teilprogramme 
BEDIENER und COMPUTER. Verfolgen wir einmal BEDIENER: 


TO BEDIENER 


CLEARTEXT 
PR SE :NAME [, Du BIST DRAN. LOS !''] 
PR [GIB EINE DER POSITIONEN 1 - 25 AN] 


ERGEBNIS FIRST RL "GEGNER 
IF EMPTYP :POS.GEGNER [GRATULIERE) 
END 


TO COMPUTER 

CLEARTEXT 

TXT.BLINKEN "SO, MEIN FREUND JETZT BIST DU REIF ! 
WAIT 20 

ERGEBNIS ZUFALL "SPIELER 

IF EMPTYP :POS.SPIELER [COMPUTERSIEG] 

END 


TO ERGEBNIS :SCHUSS :WER 

TEST GETROFFEN? :SCHUSS :WER 

IFT ETREFFER KOORDINATEN :SCHUSS :WER) 
IFF ELDÄANEBEN KOORDINATEN :SCHUSS :WER] 
END 


TO GRATULIERE 

CLEARTEXT 

TXT.BLINKEN WORD :NAME " DU HAST GEWONNEN !!! 
THROW "TOPLEVEL 

END 
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TO GETROFFEN? :POS :PARTEI 
OP RUN (LIST :PARTEI> 
END 


TO TREFFER :WO 
SETPOS :WO 


REPEAT 15 [SETPOS :WO BELL SETPOS SE SUM FIRST :WO 15 LAST :WO 
MAKE "WO SE FIRST :WO SUM LAST :WO 1] 
END 


TO DANEBEN :WO 

BELL 

PU 

SETPOS :WO 

PD SETPOS SE SWM FIRST :WO 15 SUM LAST :WO 15 
SETH 270 FD 15 

SETPOS SE SWM FIRST :WO 15 LAST :WO 

SETH 360 

BELL 

END 


TO KOORDINATEN :N ıNAME 

LOCAL "UMR 

MAKE "UMR UMR QUOTIENT :N 5 REMAINDER :N 5 
TEST :NAME = "GEGNER 

IFT [OP :UMR) 

MAKE "UMR SE 120 - FIRST :UMR BF :UMR 

OP SE -1 * FIRST :UMR BF :UMR 

END 


TO UMR :NUMQ :NUMR 

TEST :NWMR > 0 

IFT [MAKE "NUMQ :NUMQ + 1) 

IFF IMAKE "NUMR 5) 

OP SE ITEM :NUMR XW ITEM :NLMQ Yu 
END 


Nach jedem Feuern wird das Ergebnis abhängig von der Eingabe gelie- 
fert. Das Prüfwort GETROFFEN? liefert entweder ”TRUE oder "FALSE. 
TREFFER markiert eine getroffene Stellung. Die Koordinationen der 
gewählten Stellung werden durch KOORDINATEN und UMR ermittelt. 
DANEBEN markiert einen Fehlschuß durch Kreuzen des Kästchens. In- 
nerhalb von GETROFFEN? wird beim Schuß des Spielers (Bedieners) die 
Funktion SPIELER aufgerufen, die einen Treffer feststellt und die die 
entsprechende Zahl aus der Merkliste herausnimmt. Hat diese Merkliste 
keine Elemente mehr, hat der Bediener gewonnen und wird durch GRA- 
TULIERE beglückwünscht. Das Spiel ist beendet. 
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Der Spielzug des Computers ist entsprechend aufgebaut und benutzt die 
gleichen Hilfsfunktionen. Mit ZUFALL wird eine Zahl ermittelt und in 
:MERKE registriert. Beachten wir auch, daß überprüft wird, ob die Zu- 
fallszahl nicht schon einmal verwendet worden ist. In diesem Fall wird der 
Wählvorgang wiederholt. 


TO GEGNER 

TEST MEMBERP :POS :POS.GEGNER 

IFF [OP "FALSE] 

MAKE "POS.GEGNER ELMTWEG :POS :POS.GEGNER 
OP "TRUE 

END 


TO SPIELER 

TEST MEMBERP :POS :POS.SPIELER 

IFF [OP "FALSE)I 

MAKE "POS.SPIELER ELMTWEG :POS :POS.SPIELER 
OP "TRUE 

END 


TO ELMTWEG :N :LISTE 

IF FIRST :LISTE = :N [OP SE BF :LISTE) 
OP SE FIRST :LISTE ELMTWEG :N BF :LISTE 
END 


TO BELL 
TYPE CHAR 7 
END 


TO _GRATULIERE 
CLEARTI 


LEARTEXT 
TXT .BLINKEN WORD :NAME * DU HAST GEWONNEN |! 
N "TOPLEVEL 


TO COMPUTERSIEG 
TEXTSCREEN 


CLEARTEXT 

SETCURSOR [0 iR 

REPEAT 10 [PR_* 

PR SE LPECH BEMBT, LIEBER) :NAME 
Hd "TOPLEVEL 


TO _TXT .BLINKEN :TXT 
LABEL "START 


IF ENPTYP :TXT LSTOP) 
TYPE BLINKEN FIRST :TXT 
MAKE "TXT BF :TXT 

60 "START 

END 


TO _BLINKEN :2CHN 
TEST ASCII :2CHN < 
IFT [OP CHAR (192 + Ascı »2CHN) ] 
u [OP CHAR (128 + ASCII :2CHW] 
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Abschließend wird die Programmstruktur mit seiner Hierarchie doku- 
mentiert. Beachten wir, daß die Funktionen SPIELER, GEGNER und 
ELMTWESG nicht vorkommen, da sie nur indirekt durch GETROFFEN? 


aufgerufen werden.* 


0 :BOMBARDIEREN 
1:...ERKLAERUNG 


Dieses Programm 
Spieler umgestaltet 


PO 


«DEIN . NAME 
. „FELDAUFBAU 


. SCHLACHTFELD* 
....SCHLACHTFELD%*+ 
.e..YW 

.YuW+ 

. SCHLACHTFELD%*+ 
.xXW 

.YUW+ 


S.GEGNER 


«ZUFALL 


BEDIENER 


„ERGEBNIS 
....GETROFFEN? 
‚TREFFER 
.....BELL 

. „KOORDINATEN 
.....UMR 

. „DANEBEN 


....BELL+ 
....BELL+ 
« «KOORDINATEN+ 
. GRATULIERE 
....TXT.BLINKEN 


.TXT.BLINKEN+ 
.ERGEBNIS+ 
«ZUFALL+ 
.COMPUTERSIEG 


kann natürlich modifiziert werden. Es könnte für zwei 


werden 


. Wir müssen dann nur eine zweite Eingabe 


vorsehen und den Zufallsmechanismus in COMPUTER herausnehmen. 
Die gleichbleibenden Dialoge könnten interessanter gestaltet werden und 
abhängig von den noch nicht zerstörten Stellungen sein. Nach einer be- 
stimmten Spielphase könnten Umgruppierungen der Stellungen vorgesehen 


werden usw. 


* Siehe Erklärungen auf Seite 290 und Kapitel 29. 
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Im folgenden lernen wir ein Konzept zur Dateiverarbeitung kennen, das 
uns erlaubt, mehrere Dateien im Zugriff zu halten und Datensätze direkt 
anzusprechen. Unter einer Datei verstehen wir eine Ansammlung gleichar- 
tiger Datensätze auf einem externen Datenträger (Diskette). Ein Datensatz 
besteht aus mehreren Datenfeldern und beschreibt einen Sachverhalt, 
beispielsweise die Adresse eines Schülers oder die Daten eines Kunden und 
dergleichen. Die Dateiverarbeitung wird als ein Kernpunkt schulischen 
EDV-Unterrichts gefordert. Praktisches Arbeiten mit Dateien, ihr Erstel- 
len, Ändern, Ausdrucken, Auswerten und das Zusammenspielen mehrerer 
Dateien wären eine sinnvolle Ergänzung, hätte man nur einfache Dateikon- 
zepte für Ausbildungszwecke auf Personalcomputern. 

Logo hat keine speziellen Dateifunktionen und kann auch nur auf 
Disketten mit SAVE und LOAD zugreifen. Doch wir können sehr einfach 
selbst kommerziell orientierte Dateiverarbeitungskonzepte erstellen, da 
Logo uns gestattet, neue mächtige Benutzerfunktionen als Werkzeuge zu 
definieren und dann mit ihnen zu arbeiten. Diese Dateifunktionen können 
versteckt im Arbeitsspeicher gehalten werden und gehören zum nützlichen 
Befehlsstandard. 

Stellen wir im folgenden das Prinzip der Dateiverarbeitung, Dateien und 
die neuen Dateibefehle in Form einer Programmskizze vor: 


TO DATEIVERARBEITUNG 
SEFFNENDATEI "DATEIX 
SEFFNENDATEI “"DATEIYV 
ANFANGSWERTE.DEFINIEREN 
LABEL  "WIEDERHOLE 
SATZLESEN "DATEIX :SATZNRX 
SATZLESEN "DATEIY z:SATZNRY 
VERARBEITEN.DER.SAETZE 

IF DATEIENDE SCHLIESSENDATEI]I 
GO "WIEDERHOLE 

END 
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Als Beispieldatei stellen wir uns eine elementare Adreßdatei vor, die aus 
folgenden Datenfeldern besteht: 


Um aus der Datei ADRESSEN den siebenten Datensatz zu gewinnen, 
müssen wir nur den Lesebefehl wie folgt eingeben: 


?SATZLESEN "ADRESSEN 7 
?PONS 

TELEFON 1S 999997 

ORT 1S DARMSTADT 

PLZ 1S 6100 

STRASSE 15 HAUGASSE 11 
VORNAME IS BERTOLD 
ADRNR IS 7 

asATZ IS L[L) 

NAME 15 UNHOLD 


Hätten wir anschließend den Datensatz einer anderen Datei eingelesen, 
würden zusätzliche Globalvariable im Arbeitsspeicher stehen. Vor dem 
ersten Benutzen des Lese- oder Schreibbefehls muß jede im Zugriff stehen- 
de Datei mit OEFFNENDATEI eröffnet worden sein. Im Verarbeitungsteil 
unserer Programmskizze würden jetzt Benutzerfunktionen mit den uns 
bekannten Daten der Datensätze Veränderungen, Auswertungen oder 
Druckerausgaben vornehmen oder neue Datensätze bilden und in eine 
neue Datei schreiben. 

Unser Dateiverarbeitungskonzept kennt somit folgende Grundbefehle: 


OEFFNENDATEI «dateiname» 
SCHLIESSENDATEI «dateiname» 
SATZLESEN «dateiname» «satznummern 
SATZSCHREIBEN «dateiname» «satznummer> 


Diese gleichbleibenden Grundbefehle sollen den gleichzeitigen Zugriff 
auf mehrere Dateien gestatten. 

Wie lösen wir diese Aufgabe grundsätzlich in Logo? 

Der Befehl PACKAGE erlaubt uns, im Arbeitsspeicher beliebige Teil- 
mengen von Funktionen und/oder Variablen zu etikettieren. Solche mar- 
kierten Daten können dann isoliert von und zu Disketten übertragen 
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werden. Die Datenfelder eines Datensatzes können somit eindeutig mit 
dem Namen einer speziellen Datei markiert werden. Damit können Daten- 
felder eines Datensatzes von anderen Datensätzen anderer Dateien unter- 
schieden werden. Selbst Namensgleichheit von Datenfeldern verschiedener 
Datensätze könnten so gemeistert werden. Dennoch sollten wir unbedingt 
Namensgleichheiten bei verschiedenen Datenfeldern vermeiden. 

Die Merkmale jeder Datei werden in einer Eigenschaftsliste «notiert». 
Dies geschieht mit OEFFNENDATEI. Der Name der Eigenschaftsliste ist 
der Dateiname selbst. Ein wesentliches Dateimerkmal ist der Datensatzauf- 
bau (”@SATZDEF), der eine Liste mit den Feldnamen der Datensätze 
beinhaltet. Wer Paßwörter und Zugriffsberechtigungen in unserem Datei- 
konzept hinzufügen möchte, trägt diese Dateieigenschaft ebenfalls in diese 
Eigenschaftsliste ein und läßt entsprechend formulierte Kontrollfunktionen 
hierauf fußen. Eine Dateibeschreibung residiert grundsätzlich auf der Dis- 
kette unter dem Dateinamen mit dem Suffix 0 (Beispiele: ADRESSENO® 
oder KLASSE12B®). 

Jeder Datensatz bildet auf der Diskette eine Diskettendatei mit dem 
Dateinamen zuzüglich der Satznummer. Sehen wir uns die Datei ADRES- 
SEN einmal an: 


DISK VOLUME 254 


HELLO 

ADRESSENO.LOGO 
ADRESSEN1.LOGO 
ADRESSEN2.LOGO 
ADRESSEN3.LOGO 
ADRESSEN4.LOGO 
ADRESSENS.LOGO 
ADRESSENS.LOGO 
ADRESSEN?.LOGO 


> 


4444444 
NNNNNNNNN 


Lesen wir zur Verdeutlichung ADRESSEN® und ADRESSENI direkt in 
den Arbeitsspeicher ein: 


?LOAD "ADRESSENO 
?LOAD "ADRESSENI 


?PONS 

9SsATZ IS Li MEIER GERHARD HAUPTSTR. 10 &000 
FRANKFURT 123456 ] 

aSATZDEF 15 LADRNR NAME VORNAME STRASSE PLZ 
ORT TELEFON] 
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Einmal erhalten wir die Dateidefinition in der Globalvariablen 
”@SATZDEF. Der Inhalt von ADRESSEN] ist eine Liste mit den Inhal- 
ten der Datenfelder. Diese Liste hat den Namen ”@SATZ. Durch eine 
Zuordnungsvorschrift lassen sich einfach jeweiliger Name und Wert zuwei- 
sen. Sehen wir uns nun die entsprechend definierten Dateibefehle an: 


TO OEFFNENDATEI ıDATEI 

LOAD WORD :DATEI "O0 

PPROP :DATEI "3SATZDEF :9SATZDEF 
PPROP :DATEI "VALPKG :DATEI 

END 


TO SATZLESEN :DATEI :SATZNR 

LOAD (WORD :DATEI :SATZNR)> 

PPROP :DATEI "aSATZ :9SATZ 
WERTZUWEISEN GPROP :DATEI "9aSATZDEF 
END 


TO WERTZUWEISEN :3aFELDER 

REPEAT COUNT :3FELDER I[IMAKE FIRST :3FELD 
ER FIRST :9SATZ MAKE "aSATZ BF :ı9SATZ MA 
KE "3FELDER BF :9FELDER]I 

END 


Die Eröffnungsfunktion OEFFNENDATEI liest die Merkmale der ge- 
wünschten Datei und legt die Merkmale in der Eigenschaftsliste :DATEI 
ab, die noch den Paketnamen :DATEI erhält. 


?OEFFNENDATEI "ADRESSEN 


?PONS 
aSATZDEF I1S LADRNR NAME VORNAME STRASSE PLZ ORT 
TELEFON] 


?PR PLIST "ADRESSEN 

VALPKG ADRESSEN 3SATZ L7 UNHOLD BERTOLD 
HAUGASSE 11 «100 DARMSTADT 99999] 3SATZDEF 
ELADRNR NAME VORNAME STRASSE PLZ ORT TELEFON] 


Lesen wir jetzt einen Datensatz ein: 


?SATZLESEN "ADRESSEN 1 


?PR PLIST "ADRESSEN 

9SATZ Li MEIER GERHARD HAUPTSTR. 10 «4000 FRANKFURT 
123456] VALPKG ADRESSEN 3SATZDEF LADRNR NAME 
VORNAME STRASSE PLZ ORT TELEFON] 
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?PONS 

TELEFON 1S 123456 

ORT IS FRANKFURT 

PLZ 1S &000 

STRASSE 1S HAUPTSTR. 10 
VORNAME 15 GERHARD 
ADRNR 1S 1 

asATZ IS L[) 

aSATZDEF IS TADRNR NAME VORNAME STRASSE PLZ 
ORT TELEFON] 

NAME 1S MEIER 


Für unsere «Buchhaltung» erhält die Eigenschaftsliste noch den Daten- 
satzinhalt unter @SATZ abgelegt. Die Funktion WERTZUWEISEN er- 
zeugt die entsprechenden Feldnamen mit ihren aktuellen Inhalten. Das 
Festhalten des jeweils letzten Datensatzes innerhalb der Eigenschaftsliste 
:DATEI ist eine reine Rückversicherung, da nach dem Wertzuweisen der 
Datensatz @SATZ leer ist und bei irgendwelchen zukünftigen Verarbei- 
tungsfällen diesbezüglich Schwierigkeiten hiermit abgefangen werden 
könnten. 

Das Schreiben von Datensätzen auf die Diskette arbeitet nach den 
gleichen Prinzipien. Die Funktion stellt alle Datenfeldinhalte zu einer Liste 
zusammen, die dann entsprechend mit dem Wort "SCHREIBEN etikettiert 
wird. Dieses Paket namens "SCHREIBEN wird dann jeweils isoliert aus 
dem Speicher als Teilmenge auf der Diskette unter dem gewünschten 
Dateinamen abgelegt. 


TO SATZSCHREIBEN :DATEI :SATZNR 

SATZBILDEN GPROP :DATEI "9aSATZDEF 

PPROP :DATEI "3aSATZ :9SATZ 

PPROP "SATZ "VALPKG "SCHREIBEN 

CATCH "ERROR LERASEFILE WORD :DATEI :SATZNR]I 
SAVE WORD :DATEI :SATZNR "SCHREIBEN 

END 


TO SATZBILDEN :9aFELDER 

MAKE "aSATZ [I 

REPEAT COUNT :9aFELDER [MAKE "aSATZ SE :95ATZ 
THING FIRST :9@FELDER MAKE "WaFELDER BF :3FELDER] 
END 


Bevor wir mit diesen Routinen arbeiten können, müssen wir im Direkt- 
modus den Datensatzaufbau einmalig als Dateibeschreibung festlegen und 
auf die Diskette schreiben. Vorher sollten wir alles löschen oder verstecken, 
auch Eigenschaftslisten! Nur die Variable ”@SATZDEF soll Inhalt der 
Dateibeschreibung auf der Diskette werden. 


234 Dateiverarbeitung 


?MAKE "aSATZDEF LÄADRNR_NAME VORNAME STRASSE PLZ 
ORT TELEFON] 


?SAVE "ADRESSENO 
0 PROCEDURES SAVED 


?CATALOG 
DISK VOLUME 254 


A 2 HELLO 
T 2 ADRESSENO.LOGO 


Abschließend stellen wir ein elementares Datenerfassungsprogramm vor, 
das keine Prüf- und Fehlerroutinen enthält. Diese lassen sich schnell 
hinzufügen. Ein simpler Schutz gegen ein Überschreiben vorhandener 
Sätze (Irrtum bei der Eingabe der Satznummer) wird durch Weglassen der 
Zeile mit CATCH "ERROR... erreicht. Bei einem Fehler bricht das 
Programm ab. Zumindest für die Erstdatenerfassung ist das möglich. Für 
Änderungsdienste muß diese Zeile wieder vorhanden sein. Der Änderungs- 
dienst ließe sich einfach durch Frage nach dem Feldnamen oder ein 
entsprechendes Änderungsmenü erreichen. Der Wert wird dann zum neuen 
Inhalt des Datenfeldes. Anschließend rufen wir nur die Routine SATZ- 
SCHREIBEN auf, und der geänderte Satz steht auf der Diskette. 


TO ERFASSEN :DATEI 

OEFFNENDATEI :DATEI 

LABEL "START 

DE.SATZ :ı9SATZDEF 

SATZSCHREIBEN :DATEI FIRST THING FIRST :9SATZDEF 
IF NOT ENDE? [GO "START]I 

SCHLIESSENDATEI :DATEI 


END 

TO DE.SATZ :LISTE 
CLEARTEXT 
SETCURSOR [O0 0] 
L2 2 


PR [BITTE FOLGENDE DATEN EINGEBEN ...] 

LZ 2 

REPEAT COUNT :LISTE [DE.WORT FIRST :LISTE L2 1 
MAKE "LISTE BF :LISTE)I 

END 


TO DE.WORT :@NAME 
TAB 5 CHAR 32 
TYPE :3NAME 

TAB 16 ". 
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TYPE *: 
MAKE :9aNAME RL 
END 


TO TAB :POS :ZCHN 

IF :POS = FIRST CURSOR [STOP] 
TYPE :ZCHN 

TAB :POS :ZCHN 

END 


TO LZ ı:N 
REPEAT :N [PR “ ] 
END 


TO ENDE? 

SETCURSOR [LO 23] 

TYPE [WEITERE SAETZE ZU ERFASSEN?) 
TYPE CHAR 7 

TEST FIRST RL = "JA 

IFT LCOP "FALSE] 

IFF LCOP "TRUE] 

END 


TO SCHLIESSENDATEI :DATEI 
THROW "TOPLEVEL 
END 


?ERFASSEN "ADRESSEN 


BITTE FOLGENDE DATEN EINGEBEN ... 


ADRNR......:1 

NAME. ......3MEIER 
VORNAME... . 3 GERHARD 
STRASSE... .:HAUPTSTR.N\N 10 
PLZ. .22....:6000 
ORT........: FRANKFURT 
TELEFON....:123456 


0 PROCEDURES SAVED 
WEITERE SAETZE ZU ERFASSEN?JA 
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Die beiden kleinen Folgebeispiele sollen eine Verarbeitung solcher er- 
stellten Dateien demonstrieren. Im ersten Fall wollen wir gezielt die 
Adressen bestimmter Sätze auf Adreßkleber ausdrucken. 


TN AUSGABE :NRN 

OEFFNENDATEI "ADRESSEN 

LABEL "START 

IF EMPTYP :NRN [STOP] 
SATZLESEN "ADRESSEN FIRST :NRN 
VERARBEITEN 

MAKE "NRN BF :NRN 

GO "START 

END 


TO VERARBEITEN 

PR" PR“ 

<PR :VORNAME :NAME) 
<PR :STRASSE) 

<PR :PLZ :ORT) 

END 


?AUSGABE [1 7 3) 


GERHARD MEIER 
HAUPTSTR. 10 
%000 FRANKFURT 


BERTOLD UNHOLD 
HAUGASSE 11 
%100 DARMSTADT 


HANNES SCHWAFEL 
SABBELGASS 
3000 HANNOVER 


Aufwendige formatierte Druckerausgaben können unter Ausnutzung der 
Funktionen aus Kapitel 26 schnell realisiert werden. 

Wollen wir Dateien seriell von einer Anfangsnummer bis zu einer End- 
nummer ausgeben, hilft uns folgende Allerweltsfunktion, die für jede Datei 
funktioniert. 
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TO AUSGABE2 :VON :BIS :DATEI :WAS 
OEFFNENDATEI :DATEI 

LOCAL "ANZ 

MAKE "ANZ SUM 1 <(:BIS - :VON) 

REPEAT :ANZ I[LSATZLESEN :DATEI :VON RUN :WAS 
MAKE "VON :VON + 1] 

END 


?AUSGABE2 1 7 "ADRESSEN [L<PR :NAME :TELEFON :ORT)] 
MEIER 123456& FRANKFURT 

PALOMA 111111 EINSSTADT 

SCHWAFEL 332145 HANNOVER 

AUF DER ERBSE 41235& GRIMMBACH 

BLASS 123456 HAMBURG 

VON PROCHASKA - LUENEBURG 

UNHOLD 99999 DARMSTADT 


?TAUSGABE2 3 5 "ADRESSEN [VERARBEITEN] 


HANNES SCHWAFEL 
SABBELGASS 
"3000 HANNOVER 


PRINZESSE AUF DER ERBSE 
MAERCHENWEG 4 
4123 GRIMMBACH 


PAUL BLASS 
HOHE BLEICHE 4 
2000 HAMBURG 


Das Inhaltsverzeichnis einer Diskette läßt nur gut 70 Einträge zu. Das 
könnte schon, auch bei Demonstrationsbeispielen, etwas wenig an Daten- 
sätzen sein, vor allem, wenn wir mehrere Dateien im Zugriff haben wollen. 
Wir könnten mehrere Sätze zu einem Block zusammenfassen und diesen 
Block unter einer fortlaufenden Zählnummer auf der Diskette speichern. 
Bei einem Blockungsfaktor von 10 kommen wir somit auf mehr als 700 
Datensätze. 

Der Änderungsaufwand ist nicht groß. Wir müßten nur die Satznummern 
entsprechend umrechnen. Die Datensatznummern 1 bis 10 erhalten die 
Blocknummer 1, die von 11 bis 20 die. Blocknummer 2 usw. Die kleine 
Funktion BLOCKNR erledigt das: 
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TO BLOCKNR :N 

IF LAST :N = 0 [OP BL :N] 
OP SUM 1 INT :N / 10 

END 


In den Dateibefehlen muß jetzt nur noch BLOCKNR an den richtigen 
Stellen in die Anweisungszeilen eingefügt werden. Anschließend müssen 
wir noch in WERTZUWEISEN und SATZBILDEN Änderungen vorneh- 
men, um eine Liste (Block) mit mehreren Sätzen zusammenzusetzen. Beim 
Lesen holen wir einfach mit ITEM und der letzten Ziffer der Satznummer 
den Satz aus dem Block. Die letzte Ziffer an der Satznummer bestimmt, an 
welcher Stelle des Blocks der Satz herausgenommen und eingefügt werden 
soll. 
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Bildschirmorientierte Datenerfassung 


In diesem Kapitel erarbeiten wir ein Programm, das die Erfassung von 
Datensätzen über Bildschirmmasken erlaubt. Das Programm liefert nicht 
nur eine Maske, sondern kann beliebig viele Masken erzeugen. Über eine 
strukturierte Liste wird dem Erfassungsprogramm die gewünschte Be- 
schreibung gegeben und der Schirmaufbau daraus hergeleitet. Ein weiterer 
Kern ist die Cursorsteuerung, um die einzelnen Datenfelder zu erreichen 
oder Zeichen zu löschen. Wir wollen jede einzelne Taste hinterfragen, um 
Programmfehler zu vermeiden. Das erfordert manch kleine Hilfsroutine, da 
wir ja jeden Schritt vorgeben müssen. Befassen wir uns als erstes mit der 
Definition von Bildschirmmasken und deren Aufbau. 

Der Bildschirm kann durch folgendes Raster vorgegeben werden. Diese 
Tabelle hat 24 Zeilen und pro Zeile 40 Schreibstellen. Die Schreibstellen 
sind von 0 bis 39 durchnumeriert. Das gleiche gilt für die Zeilen 0 bis 23. In 
diesen Vordruck haben wir das Aussehen einer Bildschirmmaske einge- 
zeichnet. 


240 Bildschirmorientierte Datenerfasung 


Die schwarzen Felder sollen als helle Felder auf dem Schirm erscheinen. 
Unter jedem Feld soll dessen Bezeichnung stehen. Jedes Feld ist somit ein 
Datenfeld eines Datensatzes. Die Länge jedes Feldes ist durch das letzte 
helle Feld begrenzt. 

Der Maskenaufbau für diesen Fall läßt sich tabellarisch zusammenfassen: 


Feldname: Wortlänge: Position des 1. Zeichens: 
SNR 4 Spalte 1 Zeile 1 
NAME 25 Spalte 4 Zeile 5 
VORNAME 15 Spalte 9 Zeile 7 
PLZ 4 Spalte 4 Zeile 11 
ORT 25 Spalte 9 Zeile 11 
STR 20 Spalte 9 Zeile 15 
TEL 15 Spalte 4 Zeile 18 


Schematisch könnten wir für jedes Merkmal eine Liste definieren: 


LAENGE I1S [4 25 15 4 25 20 15] 

STELLE IS [Li 1] [4 51 [9 73 [4 113 [9 113 [9 15] 
[4 181) 

FELDER 15 I[SNR NAME VORNAME PLZ ORT STR TEL) 
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Nehmen wir aus jeder Liste jeweils das dritte Element, so haben wir die 
Beschreibung eines Datenfeldes auf dem Bildschirm mit seiner Lage, Länge 
und seiner Bezeichnung. Man könnte auch eine strukturierte Liste bilden, 
die jede Zeile in Form einer Liste beschreibt. Diese Beschreibung soll der 
Variablen MASKEI zugewiesen sein: 


[SNR 4 [1 1)] 
INAME 25 [4 52] 
[VORNAME 15 [9 72) 
[PLZ 4 [4 11])) 
[ORT 25 [9 119) 
ESTR 20 [9 159) 
[TEL 15 [4 18)]] 


MASKE1 IS [LLSNR 4 [1 1)) [NAME 25 [4 59) 
EVORNAME 15 [9 71313 [PLZ 4 [4 11)) LORT 
25 £9 111) [STR 20 [9 152) [TEL 15 [4 18 

31) 


In der gezeigten Weise können somit beliebige Strukturen einer Bild- 
schirmmaske beschrieben werden. Für den jeweiligen Fall müssen wir nur 
die gewünschte Maskenbeschreibung dem Programm zur Verfügung stel- 
len. Diese strukturierte Liste liegt dann als Globalvariable mit bekanntem 
Namen vor. 

Sehen wir uns nachfolgend die Bausteine zum Programm MASKE an. 
Damit die gewünschte Schirmmaske erzeugt wird, brauchen wir nur MAS- 
KE aufzurufen und für :DEFINITION den Namen der Variablen mit der 
strukturierten Maskenbeschreibung eingeben. In unserem Beispiel hätten 
wir MASKE :MASKEI eingeben müssen: 
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TO MASKE :DEFINITION 

LISTEN :DEFINITION 

FELDER :STELLE :LAENGE 
:STELLE :FELDER 


TO LISTEN :DEF 

MAKE "FELDER MACH.LISTE :DEF 1 
MAKE "LAENGE MACH.LISTE :DEF 2 
MAKE "STELLE MACH.LISTE :DEF 3 
END 


TO FELDER :WO :WAS 

IF EMPTYP :WO LSTOP] 
SETCURSOR FIRST :WO 
STRICH FIRST :WAS CHAR 160 
FELDER BF :WO BF :WAS 

END 


TO BZCHNG :WO :WIE 

IF EMPTYP :WO LSTOP] 

€ FIRST FIRST :WO <1 + LAST FIRST :WO) 
TYPE FIRST :WIE 

BZCHNG BF :WO BF :WIE 

END 
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TO MACH.LISTE :LISTE :STELLE 
IF EMPTYP_ :LIST ] 
n FPUT ITEM :STELLE FIRST :LISTE MACH.LISTE BF :LISTE :STELLE 


TO STRICH :L :2CHN 
u :L [TYPE :ZCHN) 


TO :5 :2 
SETCURSOR SE :S :2 
END 


Der Baustein LISTEN erzeugt die drei Globalvariablen :LAENGE, 
‘STELLE und :FELDER mit Hilfe von MACH.LISTE. 

Der Baustein FELDER zeichnet die hellen Bereiche auf dem Bildschirm. 
BZCHNG schreibt eine Zeile tiefer unter das helle Feld dessen Bezeich- 
nung. 

Das Leitprogramm für unser Erfassungsprogramm lautet: 


TO DE :DEF 

CLEARTEXT 

MASKE :DEF 

LABEL "ANFANG 

VERARBEITEN DE.SATZ :STELLE :LAENGE 
LOESCHEN 

IF ENDE? [STOPI [GO "ANFANG]I 

END 


Der zweite Hauptteil ist das Teilprogramm DE.SATZ mit seinen Funk- 
tionen. DE.SATZ hat als Eingaben alle Anfangspositionen der Felder und 
die Gesamtlängen der Felder. In der zweiten Zeile wird DE.WORT aufge- 
rufen, das mit der Startposition eines Feldes und dessen Länge versehen 
wird. 


TO DE.SATZ :WO :L 

IF EMPTYP :WO [OP L[L)] 

OP SE DE.WORT FIRST :WO FIRST :L DE.SATZ BF :WO 
BF :L 


TO DE.WORT :POS :L 

LOCAL "WORT MAKE "WORT " LOCAL "ZCHN 
BLINKEN :POS 

LABEL "ANF 

MAKE "ZCHN RC 

RUN CASE ASCIIZCHN [8 [LOESCH.ZCHN]I 13 [2 32 
OP :WORT]I >31 [L KETTEN]] 

GO "ANF 

END 
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TO ASCIIZCHN . 

IF ASCII :ZCHN > 31 LOP ")31] 
OP ASCII :ZCHN 

END 

TO CASE :FALL :FAELLE 


IF NOT MEMBERP :FALL :FAELLE [OP FEHLER] 
Ba FIRST BF MEMBER :FALL :FAELLE 


TO FEHLER 
OP [60 "ANF] 
END 


TO MEMBER :9 :30BJ 

IF EMPTYP :90BJ [OP :@0BJ) 

IF :9 = FIRST _:30BJ [OP :90BJ] 
OR MENBER :9 BF :90BJ 


TO LOESCH.ZCHN 

IF FIRST CURSOR = FIRST :POS [STOP] 
LOCAL "POS 

BS 

MAKE "POS CURSOR 

IF :L = 0 [Z 160 Z 32) [Z 160 2 160) 
BLINKEN :POS 

MAKE "WORT BL :WORT 

MAKE 'L :L + 1 

END 


TO BLINKEN :WO 
SETCURSOR :WO 

TYPE CHAR 223 
SETCURSOR :WO 

END 

TO KETTEN 

TEST :L > 0 

IF NOT :L > 0 [STOP] 
ZAUSG :ZCHN 

MAKE *'L :L - 1 

MAKE "WORT WORD :WORT :ZCHN 
END 


TO Z2AUSG :2 

TEST ASCII :2 ( 64 

IFT [2 (128 + ASCII :2)) 
IFF [Z (64 + ASCII :2)] 
IF :L > 1 [2 223) (2 32) 
BS 

END 


TO BS 
SETCURSOR SE SUM -i FIRST CURSOR LAST CURSOR 
END 


TO 2 :NWM 
TYPE CHAR :NUM 
END 
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Was macht DE.WORT? Damit der Bediener die Schreibposition er- 
kennt, soll diese jeweilige Stelle blinken. Jetzt wird mit READCHARAC- 
TER (RC) der Variablen ”ZCHN der Tastenwert zugewiesen. Da wir alles 
unter Kontrolle haben wollten, müssen wir die verschiedenen Fälle über- 
prüfen und danach handeln. Nicht zugelassen sind alle Zeichen in der 
ASCII-Tabelle mit einem Dezimalwert kleiner als 32. Von diesem Zeichen- 
vorrat werden aber die Zeichen Nr. 8 und Nr. 13 benötigt. Das Zeichen 
Nr. 8 bedeutet nämlich «Löschen eines Zeichens», und Nr. 13 signalisiert, 
daß die Datenfeldeingabe beendet werden soll. Sind die Zeichen größer als 
die Dezimalnummer laut ASCII-Tabelle, so wird das Zeichen aufgehoben 
und mit den anderen gültigen Zeichen verkettet. Dieses Eingeben eines 
Zeichens erfolgt so lange in einer Schleife, bis die Eingabe eines Datenfel- 
des ordnungsgemäß beendet worden ist. 

Die Funktion KETTEN liefert das invertierte Zeichen und gibt es auf 
dem Bildschirm mittels der Funktion ZAUSG (Zeichenausgabe) aus. In 
ZAUSG muß das Blinkzeichen (Cursor) von uns verwaltet und um eine 
Stelle weitergeschoben werden. Aber Achtung, bei Erreichen der letzten 
Stelle vom Feld darf das nicht mehr geschehen. Mit BS (für Backspace) 
wird ein Rückschritt gemacht, da nach dem Setzen des Blinkers eine andere 
Position erreicht wird (der echte - hier unsichtbare - Cursor wandert nach 
dem eingegebenen Zeichen weiter). In KETTEN wird die Feldlänge nach 
Null heruntergezählt, um eine Kontrolle über das Erreichen des Feldendes 
zu haben. Wenn Null erreicht ist, wird KETTEN sofort abgebrochen, und 
DE.WORT läuft so lange in einer Dauerschleife, bis die Returntaste 
(ASCIH-Zeichen Nr. 13) gedrückt worden ist. 

Als Alternative zu der vielleicht zu aufwendigen und komplizierten 
Fallauswahl wird eine andere Variante für DE.WORT gezeigt: 


TO DE.WORT :POS :L 

LOCAL "WORT MAKE "WORT " LOCAL "ZCHN 
BLINKEN :POS 

LABEL "ANF 

MAKE "ZCHN RC 

TEST ASCII :Z2CHN = 13 

IFT [TYPE CHAR 32 OP :WORT] 
TEST ASCII :2CHN = 8 

IFT [LOESCH.ZCHN GO "ANF] 
TEST ASCII :2CHN <{ 32 

IFT [GO "ANF] 

KETTEN 

GO "ANF 

END 
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TO DE.SATZ :WO :L a 

LOCAL "SATZ MAKE "SATZ [) 

LABEL "ANF 

IF EMPTYP :WO [OP L[]) 

MAKE "SATZ SE :SATZ DE.WORT FIRST :WO FIRST :L 
MAKE "WO BF :WO MAKE "L BF :L 

GO "ANF 

END 


Wenn ein Datensatz erfaßt worden ist, sollte er jetzt eigentlich auf die 
Diskette geschrieben werden. Hier müßte jetzt die entsprechende Routine 
in VERARBEITEN vorkommen. Anschließend werden die Daten in den 
Feldern gelöscht, indem erneut die schon bekannte Routine FELDER 
aufgerufen wird. Damit eine Endemöglichkeit vorgesehen ist, haben wir die 
schon aus Kapitel 14 bekannten Funktionen ENDE? und HINWEIS einge- 
baut. 


TO VERARBEITEN :SATZ 

C1 23 

TYPE [EIN SATZ 1ST ERFASST] 
END 


TO LOESCHEN 
FELDER :STELLE :LAENGE 
END 


TO ENDE? 

HINWEIS [BEENDEN MIT ESC - TASTE) 

WAIT 120 

IF KEYP [OP EQUALP RC CHAR 271 [OP "FALSE] 
END 


TO HINWEIS :TXT 

c1 23 

TYPE CHAR ? 

TYPE :TXT 

WAIT 60 

Cı1 23 

REPEAT 38 [TYPE CHAR 32] 
END 


Damit ist das Gesamtprogramm vorgestellt, dessen Struktur aus 24 
Funktionen schon umfangreich ist:* 


1: 
Zi.e....LISTEN 
3Btoeeenna. .MACH.LISTE* 


* Erklärungen zur folgenden Darstellung siehe Seite 290 und Kapitel 29. 


Bildschirmorientierte Datenerfassung 247 


Bew wie) ee ater e en wlee.ee ee 


eo... 


BVBUN=-N-NUWUUNUIUNPWWVBPLELPEPVWDWURBPUUN=-N=-WWNWWNWWL 


»....DE.SATZ 
. «LOESCHEN 


.. 0.0.0. 


ren ane MACH.LISTE*+ 
.e...MACH.LISTE*#+ 


„.....MACH.LISTE*+ 
...FELDER* 
“.....STRICH 

„0... .FELDER%*+ 

«. .BZCHNG* 

......C 

“en... .BZCHNG*+ 
VERARBEITEN 

...Ct+ 

E.SATZ* 


.DE.WORT 
....BLINKEN 


„CASE 
....FEHLER 

... „MEMBER* 
"00.0. .MEMBER*+ 
„ASCIIZCHN 
.LOESCH.ZCHN 


.2+ 
« BLINKEN+ 


+ 
ETTEN 
. „ZAUSG 
nn .2t 
.2+ 
.2+ 
.2+ 
.BS+ 
+ 


Eee 


....„FELDER%+ 
.ENDE? 

.... HINWEIS 
ern... .Ct 


.C+ 


Beim Testen der vorgestellten Version könnte der Wunsch nach einem 
schnelleren Laufverhalten aufkommen. Durch die aufwendige Fallauswahl 
und verschiedene rekursive Funktionen wird eine bemerkbare Zeit zwi- 
schen Tastenanschlag und Zeichenausgabe auf dem Schirm benötigt. Daher 
sollte die Alternative zu DE.WORT bevorzugt werden. Weiterhin entfallen 
damit die Funktionen MEMBER, CASE, ASCIIZCHN, FEHLER. DE- 
‚SATZ sollte ebenfalls zur Speicherentlastung iterativ formuliert werden. 
Die so geänderte Version ist fühlbar schneller und selbst schnellen Tasten- 


anschlagsfolgen gewachsen. 
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Universelle Druckroutine 


Im Kapitel 25 haben wir strukturierte Listen verwendet, um das Format 
einer Bildschirmmaske zu beschreiben. Zur Vereinfachung von Datenaus- 
gaben auf Bildschirm oder Drucker wollen wir eine Druckroutine benutzen, 
die alle denkbaren Formate zur Datenausgabe einhält, sofern die Form der 
folgenden strukturierten Liste beschrieben wird. 

Die Druckroutine arbeitet zeilenorientiert. Der einfachste Fall einer 
Zeile ist die Leerzeile (Zeilenvorschub). Der Normalfall einer Zeile bein- 
haltet die Ausgabe von Variableninhalten an bestimmten Stellen. Wir sagen 
beispielsweise: ab Stelle 5 den Namen, ab Stelle 25 den Vornamen usw. 

Sehen wir uns ein einfaches Beispiel an, das nur die Variable :CHIP 
verwendet. Der Inhalt von CHIP ist das Wort "WISSEN. 


?DRUCKEN ?UNTER :@FORMAT 
WISSEN WISSEN WISSEN [Li CHIP]I [9 CHIP] [17 CHIP) 
WISSEN [[9 CHIP] 
WISSEN ££9 CHIP] 
1 
WISSEN [[? CHIP)] 
1 
WISSEN [C? CHIP] 
?PONS 


CHIP IS WISSEN 
aFORMAT IS LLLi CHIPI [9 CHIPI [17 CHIPII [LP CHIPI) [LP9 CHI 
PJJ 1 [L9 CHIPII 1 [LL9 CHIPI)) 


In der Darstellung haben wir jede Zeilendefinition neben die entspre- 
chende gedruckte Zeile gesetzt, um das bisher Gesagte zu verdeutlichen. 
Jede Zeilenbeschreibung ist ein Element der Formatbeschreibung. Diese 
Beschreibung ist der Inhalt der Globalvariablen :@FORMAT. Die Druck- 
routine benutzt diesen Variablennamen und erwartet einen entsprechenden 
Inhalt. Mit jedem neu definierten Inhalt von :@FORMAT ergibt sich ein 
anderes Druckbild. 
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WISSEN WISSEN [L? CHIPI [23 CHIPI] 
WISSEN WISSEN [£i1 CHIP) [21 CHIP] 
WISSEN [L16 CHIP]] 
WISSEN WISSEN [Lil CHIP] [21 CHIP) 
WISSEN WISSEN [L? CHIPI [23 CHIPI] 


Sehen wir uns das Programm an: 


TO DRUCKEN 

LOCAL "ZEILE LOCAL "LISTE 
MAKE "LISTE :3FORMAT 
LABEL "BEGINN 

MAKE "ZEILE FIRST :LISTE 
TEST NUMBERP :ZEILE 

IFF CDRZEILE :ZEILE]I 

IFT [LEERZEILE :ZEILE] 
MAKE "LISTE BF :LISTE 

IF NOT EMPTYP :LISTE [GO "BEGINN] 
END 


TO DRZEILE :ZL 

IF EMPTYP :2L [PR " STOP] 
TAB FIRST FIRST :2L 

TYPE THING LAST FIRST :ZL 
DRZEILE BF :2ZL 

END 


TO LEERZEILE :N 
REPEAT :N [PR " ] 
END 


TO TAB2 :93 
IF :@ = FIRST CURSOR [STOP] 


DRUCKEN ist eine einfache Schleife, die so lange aus der Variablen 
:@FORMAT ein Element (jeweils die Beschreibung einer Zeile) ent- 
nimmt, bis sie leer ist. Ist dieses Element eine Liste, wird diese Druckzeile 
mit DRZEILE ausgegeben. Ist es eine Zahl, werden entsprechende Leer- 


zeilen ausgegeben. 


DRZEILE holt sich aus der eingegebenen Zeilenbeschreibung jeweils 
ein Element mit der Vorgabe der Schreibstelle und dem Namen der 
Variablen. Die Schreibposition wird mittels TAB angesteuert und dann der 


Variableninhalt gedruckt. 


250 Universelle Druckroutine 


Der Entwurf von Listbildern ist bei Endlosformularen keine Arbeit. Man 
muß nur die Zeilen und die entsprechenden Anfangspositionen der auszu- 
gebenden Datenfelder auf dem Vordruck auszählen. Nehmen wir als Bei- 
spiel das Giroüberweisungsformular: 


GUTSCHRIFT eh Bess D E 
070869 508 501 50 


Dr— Empfänger (genaue Anschrift) Bankleitzahl 
VOGEL VERLAG 12345678 
8700WUERZBURG POSTFACH 6740 


Konto-Nr. des Empfängers mm bei (Sparkasse uw.) - oder ein anderes Konto des Empfängers 


7132457 DEUTSCHE BANK 8700 WUERZBURG 


Verwendungszweck (nur für Empfänger) 


RE. V. 1.1. 1984 NR. K73456 / SF *#%%%%1 399.86 


rs 


I PEFESFFET FA. MUSTER 1111 MUSTERSTADT MUSTERSTR. 12 


Bankleitzahl 


Bitte dienen Feld nicht beschreiben un 


Das Formular hat 26 Zeilen und je Zeile 56 Zeichen (gezählt ab dem 
ersten abgedruckten Zeichen). Die Auszählung ergibt dann: 


Zeile Inhalt 
1 
5 Leerzeilen 
5 
6 ab Schreibstelle 1 die Firma, ab Stelle 44 die Bankleitzahl 
7 ab Stelle 1 die Anschrift 
8 Leerzeile 
9 ab Stelle 1 die Kontonummer und Bank 


3 Leerzeilen 
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13 ab Stelle 1 den Rechnungsbetrag, ab Stelle 42 den Rechnungsbe- 
trag rechtsbündig mit führenden Sternchen 

14 
6 Leerzeilen 

19 

20 ab Stelle 1 den Auftraggeber 

21 
5 Leerzeilen 

26 


Die zugehörige Liste lautet dann: 


?SHOW : FORMAT 

[5 [Li FIRMENNAME] [44 BLZ) [Li PLZI [5 ORT)I [30 STRASSE)) 
1 [Li KONTO] [9 BANK] [24 PLZ.B] [29 ORT.BJ]J 3 [Li RE.BEZUG]I 
[44 BETRAG]I]J 4 [Li ABSENDER]) 5) 


Drucken wir jetzt die Elemente (Zeilenbeschreibungen) von :@FOR- 
MAT untereinander aus: 


?UNTER :3FORMAT 
5 


[Ci FIRMENNAME) [44 BL2]) 

[li PLZ) [5 ORTI [30 STRASSE]] 

1 

[Li KONTO] [9 BANK] [24 PL2.B] [29 ORT.B)) 


[ti RE.BEZUG) [44 BETRAG)]) 


[ti ABSENDER]] 


Abschließend wollen wir zwei weitere TAB-Funktionen kennenlernen. 
Die erste Variante benutzt nur den REPEAT-Befehl. Die zweite Variante 
ist etwas komplizierter. Sie steuert direkt den Druckerkopf eines Matrix- 
druckers. Wir müssen die jeweilige Druckstelle entsprechend den Dots je 
Zeile umrechnen. Bei der gewählten Schrift werden für 80 Zeichen je Zeile 
640 Dots in einer Dot-Zeile verwendet. Also ist ein Zeichen 8 Dots breit. 
Der Drucker muß als Befehl zum Einnehmen einer Position folgende sechs 
Zeichen empfangen: 
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ESC F n3 n2nlnO 


| FEN vierstellige Zahl mit führenden Nullen 


Buchstabe F 
ESCAPE-Kode (ASCIH 27) 


Die vierstellige Zahl gibt die Dot-Position 0 bis 0640 an. Die entsprechen- 
de Umrechnung macht unser Programm DOTPOS. 


TO TAB1i :N 
REPEAT <:N - FIRST CURSOR) [TYPE " ]) 
END 


TO TAB :STELLE 

ı [DRUCKERSCHRIFT PICA, 440 DOTS / LINE)I 

; LAPPLE DOT MATRIX PRINTER] 

TYPE «(WORD CHAR 27 "F DOTPOS <(:STELLE - 1) *#* 9 
END 


TO DOTPOS :DOTS 

IF :DOTS < 10 COP WORD "000 :DOTS]I 
IF :DOTS < 100 [OP WORD "00 :DOTS]I 
OP WORD "0 :DOTS 

END 


Wollen wir nur den Drucker mitlaufen lassen, müssen wir den Befehl 
‚PRINTER 9 eingeben und nicht .PRINTER 1. Bei .PRINTER 9 läuft der 
Bildschirm mit, andernfalls würde das Erreichen der Schreibstelle nicht 
erkannt werden, da CURSOR ausschließlich eine Funktion für den Bild- 
schirm hat. 

Wenn wir strukturierte Listen definieren, sollten wir bei größeren Listen 
diese immer als Operation definieren, damit wir leicht mit dem Editor 
Fehler verbessern können. Man verzählt sich ja schnell bei den Klammern. 
Wenn dieser Inhalt ausgetestet ist, weist man ihn der Globalvariablen 
”@FORMAT zu. 


Tor 

OP LLEL? CHIP]I [23 CHIPII [Li1i CHIPI [21 CHIPIJ)I [Li 
% CHIPIJI [L11 CHIPI [21 CHIPII [LP CHIPI [23 CHIPI 
3] 

END 


?MAKE "aFORMAT F 
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?UNTER :3FORMAT 

£[L? CHIPI [23 CHIP]I) 

[ii CHIP]I [21 CHIP)II 
[£L1& CHIP]I] 

t[£i1 CHIPI [21 CHIP]I]I 
[19 CHIPI [23 CHIP]I) 


Einfach ist es auch, wenn wir für das Ein- und Ausschalten des Druckers 
kleine Hilfsroutinen formulieren, die an den entsprechenden Stellen im 
Programm aufgerufen werden. Arbeiten wir im Direktmodus, sollten wir 
als Funktionsnamen nur einbuchstabige Wörter nehmen, um uns die Tipp- 
arbeit zu erleichtern. So etwas ist in der Testphase eine praktische Hilfe. 
Die zweite Zeile in DRUCKEREIN legt die Schreibbreite für den Drucker 
auf 80 Zeichen pro Zeile fest. 


TO DRUCKEREIN 
«PRINTER 1 

PR WORD CHAR 9 "80N 
END 


TO DRUCKERAUS 
„PRINTER 0 
END 
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Zeichnen von Funktionsgraphen 


Zum mathematischen Schulalltag gehört das Aufstellen von Wertetabellen 
irgendwelcher Funktionen. Die in der Wertetabelle gesammelten Punkte 
mit ihren x-Werten und y-Werten werden dann in ein Koordinatensystem 
übertragen. Hat man einen vernünftigen Maßstab für die Koordinatenach- 
sen gewählt, kommt die Kurve (Graph der Funktion) heraus. So etwas ist 
ein klassischer Arbeitsauftrag für einen Computer. 

Nennen wir das Programm GRAPH. Das Programm soll Polynome 
zeichnen. Nehmen wir zur Illustration das Polynom vierten Grades: 


BR OPER We 
Ir 2x:+2 
Allgemein werden Polynome wie folgt gekennzeichnet: 


yzartnıt tt... tat tar to X’ tax tm 
In unserem Beispiel hätte das Polynom vierten Grades folgende Werte 
für die Koeffizienten: 


a4 = 0,25 
3 =0 
a,=-—2 
a =0 
u=2 


Lassen wir jetzt den Computer diese Kurve zeichnen. 
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?GRAFPH [.25 0 -2 0 21 -3. 3. .2 [] 


-3. 4.25 
-2.8 1.6864 * 
-2.5 -9.55973N2 * 
-2.4 -1.225% * 
-2.2 -1.8235 * 
=2% »2..% 
-1.8 -1.85565 * 
-1.6 -1.4816 * 
-1.4 -.959605 * 
-1.2 -.361605 * 
-1. .249994 * 
-.800002 822394 * 
-.6800002 1.31239 * 
-.400002 1.6864 * 
-.200002 1.9204 * 
-2.24498N4 2. * 
«199998 1.9204 * 
399998 1.6864 * 
«599998 1.3124 * 
«799997 .822406& %* 
«999997 -250007 * 
1.2 -.361593 * 
1.4 -.959593 * 
1.6 -1.48159 * 
1.8 -1.8556 * 
2. -2. %* 
2.2 -1.82351 * 
2.4 -1.22561 * 
2.5 -9.56254N2 * 
2.8 1.658636 * 
3. 4.24994 


Die x-Werte und y-Werte werden von oben nach unten in zwei Kolonnen 
rechtsbündig untereinander geschrieben. Jede Zeile stellt mit ihrem x-Wert 
praktisch die x-Achse dar. Der restliche Teil der Zeile ist der Bereich zum 
Zeichnen des y-Wertes. Eine x-Achse, das heißt eine Senkrechte, mit dem 
y-Wert Null wird nicht gezeichnet. Die kann jeder bei Bedarf schnell mit 
Lineal und Bleistift nachzeichnen. 

Der Bereich der x-Werte geht von —3 bis +3. Die x-Werte nehmen 
jeweils um 0,2 zu. Vergleichen wir noch einmal den Aufruf von GRAPH. 
Wir finden die Koeffizienten in Form einer Liste wieder und daneben die x- 
Bereiche und die Zunahme von x. Als letztes ist eine leere Liste eingege- 
ben, deren Bedeutung wir weiter unten kennenlernen. Wir können in dieser 
Liste eine untere und obere Schranke eingeben, damit nur y-Werte aus 
diesem eingegrenzten Bereich abgebildet werden. 

Sehen wir uns die Programmstruktur.von GRAPH an, um dann die 
wesentlichen Funktionen kennenzulernen: 
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GRAPH 

. .YWERTE 

....FOR 

....HORNER 

.BILDGRENZEN 

„MINMAX* 

... .MINMAX#+ 

“0. .MINMAX*+ 

... .MINMAX#+ 
.BILDGRENZEN+ 

‚WHILE 

. DRUCKEN 

»...ZAHLENPAAR 

“0... RBUEND 
.:0....FUELLER* 
“ser... .FUELLER%*+ 
.....COUNTW 
“.e.00..WORTINLISTE* 
.seee0000..WORTINLISTE*+ 
. .RBUEND+ 
RUCK.Y.WERT 
..TAB 

. .„BILDPUNKT 
.. TAB+ 


.BILDPUNKT+ Erklärungen zur Darstellung 


TAB+ E i R 
# 29, 
"BILDPUNKT+ siehe Seite 290 und Kapitel 


BVOWBWWWWNWAUPUPWN=-H-HNNDNH-H-NN-O 


a Er > 


Sehen wir uns gleich das Leitprogramm GRAPH an: 


TO GRAPH :FVX :XA :XE :DX :SCHRANKEN 

YWERTE :FVX :XA :ıXE :DX 

TEST EMPTYP :SCHRANKEN 

IFT ECBILDGRENZEN MINMAX FIRST :YW FIRST :YW :YW] 
IFF CBILDGRENZEN :SCHRANKEN] 

WHILE ENOT EMPTYP :YWJ EDRUCKEN] 

END 


Die Funktion YWERTE ermittelt die y-Koordinaten für die Wertetabel- 
le. Das Ergebnis von YWERTE befindet sich in der Variablen :YW und ist 
eine Liste. BILDGRENZEN berechnet den Abbildungsmaßstab für die y- 
Werte. Da die Druckzeile oder Bildschirmzeile nur eine vorgegebene 
Anzahl von Schreibstellen hat, muß auf diesen Bereich alles an errechneten 
y-Werten verteilt werden. Der kleinste und der größte y-Wert müssen 
gerade noch auf dem linken und rechten Abbildungsrand des Schirms oder 
Druckers erscheinen. Das Errechnen dieses y-Achsen-Maßstabs erledigt 
BILDGRENZEN. MINMAX ermittelt für BILDGRENZEN den klein- 
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sten und größten y-Wert. DRUCKEN gibt uns wahlweise die Koordinaten 
und die Kurve oder nur die Kurve aus, wobei im letzten Fall der eingesparte 
Platz für die beiden Koordinaten mit zum Zeichenbereich der Kurve 
genommen wird und der Funktionsgraph genauer wird. 

Sehen wir uns jetzt die Teilprogramme von GRAPH im Detail an. 


TO YWERTE :FVX :XA :XE :DX 

MAKE "YW L] 

FOR "I :XA :XE :DX IMAKE "YW SE :YW HORNER :FVX :1] 
END 


TO BILDGRENZEN :MINMAX 
MAKE "MIN FIRST :MINMAX 
MAKE "MAX LAST :MINMAX 
TEST :MIN <{ 0 


IFT [MAKE "SCHRITT BF <:BEREICH / <:MIN - :MAXD))I 
IFF E[MAKE "SCHRITT <:BEREICH / (:MAX - :MIND)]I 
END 


TO MINMAX :MIN :MAX :YW 
IF EMPTYP :YW LOP SE :MIN :MAX] 


IF FIRST :YW < :MIN LOP MINMAX FIRST :YW :MAX BF :YW]J 


TEST FIRST :YW > :MAX 

IFT LOP MINMAX :MIN FIRST :YW BF :YW] 
IFF LOP MINMAX :MIN :MAX BF :YW] 

END 


TO DRUCKEN 

TEST :KOORDINATEN? 

IFT LTYPE ZAHLENPAAR] 
DRUCK.Y.WERT FIRST :YW 
MAKE "XA :XA + :DX 
MAKE "YW BF :YW 

END 


TO HORNER :POLY :ARG 

LOCAL "S MAKE "S 0 

LABEL "START 

IF <COUNT :POLY> = 1 LOP SUM :S FIRST :POLY] 
MAKE "S <SUM :S FIRST :POLY> * :ARG 

MAKE "POLY BF :POLY 

60 "START 

END 


TO DRUCK.Y.WERT :Y 

TEST OR :Y <£ :MIN :Y > :MAX 
IFT [PR " STOP] 

TEST :Y < 0 
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IFT [TAB BILDPUNKT :Y - :MIN FR " x STOP) 
TEST :MIN <£ 0 “ 

IFT [TAB BILDPUNKT :Y + BF :MIN PR " * STOP) 
IFF [TAB BILDPUNKT :Y - :MIN PR " %)] 

END 


TO ZAHLENPAAR 

OP SE RBUEND :XA 10 CHAR 32 RBUEND FIRST 
:YW 10 CHAR 32 

END 


TO BILDPUNKT :9 
OP ROUND «&:9 * :SCHRITT> 


END 

TO TAB :» 

IF NOT <:9 > 1) [STOP] 
REPEAT <(:9 - 1) [TYPE " ] 
END 


YWERTE besteht nur aus einer FOR-Schleife und der Anweisung, wie 
der y-Wert berechnet werden muß. Diese Berechnungsvorschrift heißt 
HORNER. Die Horner-Vorschrift zum Berechnen von y-Werten für Poly- 
nome kann in jedem Oberstufenmathematikbuch nachgesehen werden. 
Das Programm HORNER ist dem genau nachempfunden. 

In BILDGRENZEN wird der Abbildungsbereich für eine y-Werteinheit 
berechnet und in :SCHRITT gespeichert. Angenommen, wir haben 38 
Schreibstellen auf dem Bildschirm zur Verfügung, und die y-Werte liegen 
im Bereich von 1 bis 100. Die erste Schreibstelle auf dem Schirm ist für den 
y-Wert 1 und die 38. Schreibstelle für den Wert 100. Je y-Wert steht somit 
nur 0,38 einer Schreibstelle zur Verfügung. Daraus folgt, daß sich mehrere 
umgerechnete y-Werte eine Schreibstelle teilen müssen. Der umzurechnen- 
de Bereich ist in der Variablen :BEREICH festgelegt, da dieser abhängig 
vom Drucker und dem Bildschirm veränderlich ist. Wir müssen also, bevor 
wir GRAPH benutzen, diesen Wert festlegen. Benutzen wir die volle 
Schirmzeile, müssen wir eingeben: MAKE "BEREICH 38. Hingewiesen 
sei auf die elegante Zusatzlösung mit Hilfe des Startprogramms START, 
das diese Werte in einem Dialog erfragt. Bei diesem Dialog wird auch 
gefragt, ob die Kurve mit oder ohne Koordinatenwerten gezeichnet werden 
soll. In der Variablen :KOORDINATEN? wird "TRUE oder ”FALSE 
abgelegt. :KOORDINATEN? wird in der Routine DRUCKEN benötigt. 
Die restlichen Funktionen werden nun aufgelistet. 


Zeichnen von Funktionsgraphen 259 


TO START 

PR [WIRD DER DRUCKER BENUTZT ? < J/ND] 
TEST EQUALP FIRST RL "J 

IFT [MAKE "DRUCKER? "TRUE] 

IFF [MAKE "DRUCKER? "FALSE)I 

PR [KOORDINATEN AUSGEBEN ? < J/ND] 

TEST EQUALP FIRST RL "J 

IFT [MAKE "KOORDINATEN? "TRUE] 

IFF IMAKE "KOORDINATEN? "FALSE] 

TEST :KOORDINATEN? 

IFT [IF :DRUCKER? [MAKE "BEREICH 37 DRUCKER.EIN]I 
[MAKE "BEREICH 17)) 

IFF LCIF :DRUCKER? [MAKE "BEREICH 0] [MAKE 
"BEREICH 379] 

END 


TO DRUCKER.EIN 

«PRINTER 1 

PR <WORD CHAR 27 CHAR 81 CHAR 14) 
PR WORD CHAR 9 "&0N 

END 
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Die bereits erwähnte Routine START legt sogenannte Parameter fest, 
die eine Auswahlmöglichkeit zwischen Schirm und Drucker sowie Abbil- 
dungen mit und ohne Zahlen ermöglichen. Nach dem Ablauf von START 
beginnen wir wie schon beim Eingangsbeispiel, indem wir GRAPH und die 
zusätzlichen Eingabewerte eintippen. 


?START 

WIRD DER DRUCKER BENUTZT ? << J/ND 
J 

KOORDINATEN AUSGEBEN ? £ J/ND 

J 


?GRAFPH [6 -16 12 0 01 -2. 2. .2 IL] 


2%, 272. 
-1.8 195.178 * 
-1.6 135.578 * 
-1.4 90.4737 * 
-1.2 57.3697 * 
Us 34.0001 * 
-.800001 18.3297 * 
-.600001 8.553565 * 
-.400001 3.097663 * 
-.200001 .617609 * 
-1.3113N6 2.06342N11 * 
«199999 «3651596 * 
399999 1.04959 * 
«599999 1.6416 * 
«799998 1.9456 * 
«IP9F98 2 
1.2 2.0736 * 
1.4 2.665559 * 
1.6 4.50557 * 
1.8 8.55355 * 
2. 15.9999 * 
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Das Beispiel zeigt uns, daß im x-Bereich von —0,4 und 1,4 die y-Werte 
zusammenfallen. Lassen wir die Kurve noch einmal, jetzt aber nur im 
angegebenen Bereich ausdrucken. Auch die Schrittweite für : X ändern 
wir. 


?GRAPH [6 -1i6 12 0 01 -.3 1.4 .05 [] 
-.3 1.5606 * 
-.25 1.023494 * 
-.2 .6176 * 
-.15 .327038 * 
-.1 .1366 * 
-5.00001N2 3.203765N2 * 
-5.9650465N8 4.26326N14 * 
4.99999N2 2.80374N2 * 
9.99999N2 :1045 * 
.15 .219037 * 
.2 .3616 * 
«25 .523437 * 
.3 659656 * 
«35 .874037 * 
.4 1.0496 %* 
«45 1.21804 * 
.5 1.375 * 
.55 1.51704 * 
.6 1.6416 * 
6549999 1.74704 * 
«599999 1.8324 * 
.749999 1.897844 * 
«799999 1.9456 
.849999 1.976804 
:899999 1.9926 
«949999 1.999904 
«999999 2. 
1.05 2.00104 
1.1 2.008% 
1.15 2.03004 
1.2 2.0736 
1.25 2.14843 
1.3 2.2646 
1.35 2.43303 


KERKEK KK 
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Das Ergebnis sieht schon besser aus. An diesem Beispiel sehen wir 
deutlich, welchen Vorteil die jeweilige Umrechnung des Abbildungsmaß- 
stabs auf die tatsächlich vorgekommenen y-Werte bietet. 

Wie schon erwähnt, können wir diese Umrechnungsautomatik abschal- 
ten, indem wir selbst eine gewünschte Unter- und Obergrenze eingeben. 
Nur y-Werte einschließlich der Grenzen werden abgebildet. 


?GRAPH [6 -16 12 0 0) -2. 2. .2 [-3 3) 


-2. 272. 
-1.8 195.178 
-1.6 135.578 
-1.4 90.4737 
-1.2 57.3697 
=L. 34.0001 
-.800001 18.3297 
-.600001 8.55365 
-.400001 3.09763 
-.200001 617609 %* 
-1.3113N4 2.04342N11 * 
.199999 .361596 %* 
399999 1.049579 %* 
599999 1.6416 * 
«799998 1.9456 * 
«PIPPI 2. * 
1.2 2.0736 * 
1.4 2.664559 
1.6 4.50557 
1.8 8.55355 
2. 15.9999 
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Das Programm GRAPH kann durch geringe Änderung auch für andere 
Funktionstypen genutzt werden. Wir lassen einmal die Sinusfunktion im 


Bereich von 0° bis 360° ausdrucken: 


?GRAPH L[SIN 

0. 
10. 
20. 
30. 
40. 
50. 
60. 
70. 
8. 
9. 
100. 
110. 
120. 
130. 
140. 
150. 
160. 
170. 
180. 
190. 
200. 
210. 
220. 
230. 
240. 
250. 
260. 
270. 
280. 
290. 
300. 
310. 
320. 
330. 
340. 
350. 
360. 


1) 0. 


360. 
0. 


.173648 
.34202 


.5 


.642788 
766044 
«866025 
«939693 
.984808 


1. 


.984808 
«939693 
.866025 
766044 
.642788 


«5 


.34202 
.173648 


0. 


-.173648 
-.34202 


.5 


-.642788 
-.766044 
-.866025 


-.939693 
-.984808 

-1. 
-.984808 
-.939693 


LE zu ze ze 0 


-.866025 
-.,766044 
-.642788 


-.5 


-.34202 
-.173648 


0. 


10. 


0) 
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Neben dieser Grundfunktion lassen sich auch verkettete trigonometri- 
sche Funktionen zeichnen. Gezeichnet wird anschließend y = sin x cosx. 


?GRAPH [PRODUCT SIN :I COS :11 0. 360. 10. [] 


0. 0. * 
10. .17101 * 
20. .321394 * 
30. .433013 * 
40. .492404 
50. .492404 
60. .43301%3 * 
70. .3213974 * 
80. .17101 * 
0. 0. * 
100. -.17101 * 
110. -,321394 * 
120. -,433013 #* 
130. -.492404 * 
140. -.492404 * 
150. -,433013 * 
160. -.321394 * 
170. -.17101 * 
180. 0. * 
190. .17101 * 
200. .321394 * 
210. .433013 
220. .492404 
230. .492404 
240. .433013 
250. .321394 * 
260. .17101 * 
270. 0. * 
280. -.17101 * 
290. -,3213974 * 
300. -,433013 * 
310. -.492404 * 
320. -.492404 * 
330. -.433013 * 
340. -.321394 * 
350. -.17101 * 


360. 0. * 
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Nur die Benutzerfunktion muß geändert werden. Bei der Eingabe müs- 
sen wir darauf achten, daß der Funktionsterm in Abhängigkeit von der 
Variablen :I formuliert werden muß. Vergleichen wir hierzu genau die 
beiden Aufrufe von GRAPH in den beiden letzten Beispielen. 


TO YWERTE :FVX :XA :XE :DX 

MAKE "YW L] 

FOR "1 :XA :XE :DX SE I[IMAKE "YW SE :YW]J :FUX 
END 


Die Druckereinschaltroutine DRUCKER.EIN ist natürlich abhängig 
vom jeweiligen Druckertyp. Hier handelt es sich um einen Itoh-Drucker, 
der als Apple-Standarddrucker seit 1983 angeboten wird. Die Druckbreite 
von 60 Zeichen bezieht sich auf die vergrößerten Buchstabentypen. Diese 
Werte können natürlich jeweils beliebig modifiziert werden. Bei verdichte- 
ten Druckertypen können bis zu 120 Zeichen je Zeile ausgegeben werden. 
Abzüglich der 22 Zeichen für das Zahlenpaar bleiben dann immerhin noch 
98 Stellen für die Zeichnung übrig. 

Logo bietet noch eine weitere Möglichkeit. Wir könnten die Turtlegrafik 
hierfür einsetzen. Die Turtle kann sich von Punkt zu Punkt bewegen und 
zeichnet damit einen geschlossenen Kurvenzug. 

Was müssen wir tun? 

Als erstes müssen wir die Maßstäbe für die x-Achse und die y-Achse auf 
die eingegebenen Bereiche umrechnen. 

Zweitens brauchen wir nur noch jedes Wertepaar dem Grafikbefehl 
SETPOS in Form einer Liste einzugeben. Die Turtle bewegt sich dann von 
ihrem alten Standort zu der angegebenen Position. Weiterer Vorteil ist, daß 
wir ein Koordinatenkreuz zeichnen lassen können. Die Schirmbereiche der 
Turtle sind: 
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Wir müssen nur ändern: GRAPH 
DRUCKEN 
DRUCK.Y.WERT 
START 

Die Funktion START ist neu formuliert worden und gibt gleich einige 
Hinweise für den Benutzer. Abhängig vom größten Absolutwert der x- 
Eingabe wird der Abbildungsmaßstab für die x-Werte berechnet. 

Neue Funktionen sind BEGINN und X. BEGINN löscht den Grafik- 
schirm und zeichnet das Koordinatenkreuz. X rechnet die x-Koordinate für 
die Abbildungskoordinate um und entspricht damit BILDPUNKT für die y- 
Werte. 


TO START 

TEXTSCREEN 

CLEARTEXT 

PR [WIR SIND IM TURTLE - MODUS) 

PR " 

PR [DER X-BEREICH: VON -140 BIS 139] 

PR IDER Y-BEREICH: VON -120 BIS 119) 

PR " 

PR [DIE Y - WERTE WERDEN AUF DEN Y - BEREICH UMGERECHNET.) 
PR " PR * 

PR [DIE X-SKALA MUESSEN WIR WAEHLEN:) 

PR [WELCHES SOLL DER GROESSTE ZAHLENBETRAG FUER DEN XWERT WERDEN ?] 
PR [GEMEINT 1ST DIE ZAHL OHNE VORZEICHEN.] 

PR *" PR " 

PR [WELCHEN WERT BITTE ?) 

MAKE "XSKALA FIRST RL 

MAKE "XSKALA 140 / :XSKALA 

PR LUND JETZT DEN PROGRAMMAUFRUF .„.GRAPH. .] 

RUN RL 

END 


TO GRAPH :FVX :XA :XE :DX :SCHRANKEN 

YWERTE :FVX :XA :XE :DX 

TEST EMPTYP :SCHRANKEN 

IFT [BILDGRENZEN MINMAX FIRST :YW FIRST :YW :YW) 
IFF EBILDGRENZEN :SCHRANKEN] 

CLEARSCREEN 

BEGINN 

WHILE INOT EMPTYP :YW) LDRUCKEN] 

END 


TO BEGINN 

SETPOS [0 240] HOME 

SETPOS [300 0) HOME 

FULLSCREEN 

PU SETPOS SE X :XA BILDPUNKT FIRST :YW PD 
END 
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TO DRUCKEN 
DRUCK.Y.WERT FIRST :YW 
MAKE "XA :XA + :DX 
MAKE "YW BF :YW 

END 


TO DRUCK.Y.WERT :Y 

TEST OR :Y € :MIN :Y > :MAX 
IFT [PR * STOP] 

SETPOS SE X :XA BILDPUNKT :Y 


END 

TOX :? 

OP :XSKALA * :XA 
END 
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Im folgenden wollen wir drei Funktionen darstellen lassen. Der erste 


Funktionsgraph ist uns schon bekannt. 


?START 
WIR SIND IM TURTLE - MODUS 


DER X-BEREICH: VON -140 BIS 139 
DER Y-BEREICH: VON -120 BIS 119 


DIE Y - WERTE WERDEN AUF DEN Y - 
BEREICH UMGERECHNET. 


DIE X-SKALA MUESSEN WIR WAEHLEN: 


WELCHES SOLL DER GROESSTE ZAHLENBETRAG FUER DEN 


XWERT WERDEN ? 


GEMEINT IST DIE ZAHL OHNE VORZEICHEN. 


WELCHEN WERT BITTE ? 
3. 


UND JETZT DEN FROGRAMMAUFRUF ..GRAPH.. 


GRAPH L.25 0 -2 0 2) -3. 3. .2 [] 
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Die nächste Funktion soll y = (sin x)? sein. Sie soll nur Werte zwischen 0° 
und 360° zeichnen bei einer Schrittweite von 5 Grad. 
Der Aufruf lautet: 
GRAPH [PRODUCT SIN 11 SIN :I] 0 360 5 [] 
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Die nächste Funktion ist y = sinx - cosx im Bereich zwischen —180° und 
180° bei einer Schrittweite von 10 Grad. 


GRAPH [PRODUCT SIN :I COS: 1] (-180) 180 10 [] 


28 
Arbeiten mit Bereichsvariablen (Arrays) 


Unter einer Bereichsvariablen (Array) verstehen wir einen Datentyp, der 
eine Anzahl von Werten zum selben Zeitpunkt speichern kann, wobei jeder 
einzelne Wert über eine Kombination von Namen und Index zugänglich ist. 
Solche ein- oder zweidimensionalen Bereichsvariablen nennt man in der 
Mathematik Vektoren oder Matrizen. Eine zweidimensionale Bereichsva- 
riable ist im Klartext eine Tabelle. Eine Tabelle besteht aus Zeilen und 
Spalten. Jedes Feld der Tabelle läßt sich über die Zeilennummer und die 
Spaltennummer kennzeichnen. Die eindimensionale Bereichsvariable ist 
der Sonderfall der Tabelle, die Liste, die beispielsweise nur eine Zeile hat 
mit den entsprechenden Spalten. Die Logoliste ist letztlich eine Bereichsva- 
riable, bei der nicht über einen Index das gewünschte Element der Liste 
angesprochen werden kann, sondern nur seriell von links oder rechts die 
einzelnen Listenelemente abgearbeitet werden können. Die vorliegenden 
Logoversionen für Personalcomputer haben keine Arrayfunktionen. Doch 
das ist nicht schlimm, da wir leicht in Logo die benötigten Elementarfunk- 
tionen selbst definieren können. Im Folgekapitel stellen wir eine Handvoll 
solcher Grundfunktionen und ihre Handhabung vor. Die Funktionen wer- 
den anschließend mit einer kurzen Besprechung aufgelistet. Dann folgen 
Abschnitte, die mit diesen Arrayfunktionen Arbeitsbeispiele bieten. 


28.1 Selbstdefinierte Tabellenfunktionen 


Elementare Funktionen zum Definieren und Bearbeiten von Tabellen 
wären: 

- Definieren einer Tabelle 

— Lesen eines Wertes aus der Tabelle 

- Schreiben eines Wertes in die Tabelle 

- Ermitteln der Dimension einer definierten Tabelle 
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Neben diesen elementaren Funktionen sollen noch zwei praktische Hilfs- 
funktionen hinzukommen, die es erlauben, alle Felder einer Tabelle mit 
Werten zu füllen und alle Felder einer Tabelle auszudrucken. 


Die Namen der benutzerdefinierten Elementarfunktionen sind: 
-DEFV (Definieren eines Vektors) 

-LV (Lesen eines Vektorfeldes) 

-SV (Schreiben eines Vektorfeldes) 

- DIMV (Dimension eines schon definierten Vektors) 


Lernen wir die genannten Funktionen an einem Beispiel kennen. Wir 
wollen eine Tabelle definieren, die vier Zeilen und fünf Spalten hat. Der 
Name der Tabelle sei TABELLE. Dann wollen wir einige Werte mit der 
Funktion SV in die Tabelle eintragen. 


a 


Bar 


?DEFV "TABELLE 4 5 

?SV "TABELLE 1 1 123 
?SV "TABELLE 1 2 "ABER 
?SV "TABELLE I 3 "ABC 
?SV "TABELLE 1 4 "HALLO 
?SV "TABELLE 1 5 "HUHU 
?SV "TABELLE 2 2 34 

?SV "TABELLE 3 3 "GERD 
?2SV "TABELLE 4 4 "LISA 
?SV "TABELLE 4 5 12.3 


?PRINT LV "TABELLE 1 2 
ABER 
?PRINT LV "TABELLE 3 3 
GERD 
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Das Schreiben von Werten in eine Tabelle mit der Funktion SV verlangt 
vier Eingaben: Namen des Arrays, Zeilennummer, Spaltennummer und 
den einzutragenden Wert. 

Das Lesen von Werten aus einer Tabelle verlangt die drei folgenden 
Angaben: Namen des Arrays, Zeilennummer und Spaltennummer. Ange- 
merkt sei, daß wir die Felder mit beliebigen Daten belegen können - 
Zahlen, Wörter und Listen. In anderen Programmiersprachen sind Arrays 
in der Regel jeweils nur für einen Datentyp zulässig. Darüber hinaus kann 
die Dimension einer Tabelle während des Programmlaufs bedarfsgesteuert 
festgelegt werden! In vielen Sprachen muß eine Tabelle bei der Programm- 
erstellung schon in seinen Dimensionen festgelegt werden und ist damit 
statisch. 

Stellen wir noch die restlichen Funktionen vor. DIMV ist eine Operation, 
die eine zweielementige Liste liefert. Die erste Zahl gibt die Anzahl der 
Zeilen an, die zweite Zahl liefert die Anzahl der Spalten je Zeile. Der 
Tabellenname ist die Eingabe für DIMV. 


2? 


?PR DIMV "TABELLE 
45 


Die Hilfsfunktion DRUCKV druckt eine Tabelle zeilenweise aus. Es 
muß nur jeweils der Tabellenname eingegeben werden. 


?DRUCKV "TABELLE 
123 ABER ABC HALLO HUHU 
34... 
GERD . . 
. LISA 12.3 


Inhaltlich nicht belegte Felder sind in unserer Version mit einem Punkt 
belegt. Wir könnten auch diese Felder mit Null oder dem leeren Wort 
belegen. Wer das für seine Zwecke anders benötigt, muß in der Funktion 
DEFYV die hier verwendete Operation SPALTE modifizieren (siehe unten). 

Die Hilfsfunktion FUELLV ermöglicht uns, in einem kleinen Benutzer- 
dialog alle Felder einer Tabelle mit Werten zu belegen, damit wir bei 
Testphasen Tabellen für den gewünschten Zweck bequem mit Daten füllen 
können. Soll ein Feld nicht belegt werden, so müssen wir das vereinbarte 
Nichtbesetztzeichen eingeben. Der Dialog zum Füllen der Felder sei vorge- 
führt: 


274 Arbeiten mit Bereichsvariablen (Arrays) 


?FUELLV "TABELLE 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 
TABELLE MIT FELD 


m 
2a 
oO 


5 


BRRELEREUWWWWUNNNNNHTmHMmmm 
UBPBWUN=-UBUN-UBRWN=-UBUNM 


»>Teoe. 0. Dee. 


N“ 
@ 


Wie sehen jetzt die einzelnen Funktionen aus, und welche Überlegungen 
liegen ihnen zugrunde? 

Benutzt werden jeweils Logolisten. Jede Zeile einer Tabelle ist eine 
Liste. Der Name dieser Zeile setzt sich zusammen aus dem vorgegebenen 
Namen zuzüglich der Zeilennummer. Jedes Element dieser Liste ist folglich 
ein Spaltenelement der Tabelle. Dieser Zusammenhang wird deutlich, 
wenn wir uns die Variablen ansehen, die durch die Funktion DEFV erzeugt 
werden. Alle Variablen sind in diesem Konzept Globalvariable. 


?DEFV "TABELLE 4 5 


?PONS 

VTABELLE 1S [4 5) 
VTABELLE4 IS L. . 
VTABELLE3 IS CL. . 
VTABELLE2 IS IL. . 
VTABELLEI IS L. . 


.o.. 
a... 
. 0.0. 
a ee 


Alle Variablennamen erhalten per Programm noch den Zusatzbuchsta- 
ben V, damit Variablennamen sofort erkannt werden können und nicht mit 
anderen Variablen so schnell verwechselbar sind. Die Variable "VTABEL- 
LE enthält die zweielementige Liste, die die Dimension der Tabelle angibt. 
Die Funktion DIMV liefert einfach diesen Variableninhalt. Die schon oben 
erwähnte Funktion SPALTE erzeugt bei der Definition einer Tabelle 
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jeweils die einzelnen Spaltenelemente und belegt somit die Felder einer 
Zeile mit dem vereinbarten «Nichtbelegtzeichen». Wir müssen nur das 
Zeichen ”. gegen ein anderes Zeichen austauschen, um eine andere Vorbe- 
legung zu bekommen. 


TO DEFV :NAME :2 :5S 

FOR "I 1 :2 1 [MAKE < WORD "V :NAME :1 ) SPALTE :5) 
MAKE «WORD "V :NAME) SE :2 :5 

END 


TO SPALTE :S 

LOCAL "SP MAKE "SP L[] 

REPEAT :S I[MAKE "SP SE :SP ".] 
OP :SP 

END 


TO DIMV :NAME 
OP THING WORD "V :NAME 
END 


Das Lesen eines Elements aus der Tabelle erfolgt in der Weise, daß aus 
dem eingegebenen Tabellennamen und der angegebenen Zeilennummer 
der entsprechende Globalvariablenname konstruiert wird. Mit der bekann- 
ten Logofunktion ITEM wird dann das entsprechende n-te Element der 
Liste gemäß der Spaltennummer gewonnen. Da bei Lese- und Schreibvor- 
gängen häufig Indexgrenzen überschritten werden, ist es sinnvoll, sich einen 
kontrollierten Fehlerausgang mittels CATCH zu konstruieren, um gerade 
in der Testphase über eine Fehlerbehandlungsfunktion Auskünfte über 
lokale Variable ausdrucken zu lassen. Die hier gezeigte Funktion FEHLER 
sollte jeder nach seinen Bedürfnissen modifizieren. Wird zum Beispiel das 
THROW ”TOPLEVEL weggelassen, läuft das Programm trotz Fehler 
weiter. 


TO LV :NAME ı2 :$S 

CATCH "ERROR [OP ITEM :S THING (WORD "V :NAME :2)) 
FEHLER 

END 


TO FEHLER 

LOCAL "FEHLER MAKE "FEHLER ERROR 
IF EMPTYP :FEHLER [STOP] 

PR ELFALSCHER INDEX ?] 

PR :FEHLER 

THROW "TOPLEVEL 

END 
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Die Funktion zum Schreiben in ein Tabellenfeld entspricht von der Idee 
her der Lesefunktion. Die Operation EINSETZEN leistet das Entscheiden- 
de. Alle Zeilenelemente vor dem gewünschten Feldelement werden ermit- 
telt. Dann wird als nächstes das neue Feldelement in der Liste angehängt. 
Der Rest der alten Tabellenzeile ohne das jetzt an erster Stelle stehende 
alte Feldelement wird angehängt. Auch hier haben wir den Fehlerausgang 
vorgesehen. 


TO SV :NAME :2 :5 :WERT 

CATCH "ERROR I[MAKE (WORD "V :NAME :2) EINSETZEN 
THING <WORD "VW :NAME :2) :S :WERT]I 

FEHLER 

END 


TO EINSETZEN :V :S :WERT 

IF :S = 1 [OP SE :WERT BF :V] 

OP SE FIRST :V EINSETZEN BF :V :S -— 1 :WERT 
END 


Die Hilfsfunktionen DRUCKV und FUELLV benutzen die bekannte 
Kontrollstruktur FOR, mit der bequem solche indexorientierten Schleifen 
definiert werden können. 


TO DRUCKV :NAME 

FOR "1 1 FIRST DIMV :NAME 1 [FOR "J 1 LAST DIMV 
:NAME 1 [TYPE LV :NAME :1I :J TYPE " I PR "] 

END 


TO FUELLV :NAME 

FOR "I 1 FIRST DIMV :NAME 1 [FOR "J 1 LAST DIMV 
NAME 1 [SV :NAME :1 :J WERTV)) 

END 


TO FOR :VAR3 :A3 :E3 :5S39 :BEFEHL 

LOCAL :VAR3 

MAKE :VAR3 :A3 

REPEAT SUM 1 <:E3® - :A9) / :59 [RUN :BEFEHL MAKE 
VAR? :53 + THING :VAR3] 

END 


TO WERTV 

TYPE <SE :NAME [MIT FELD]I :I :J "...:) 
OUTPUT FIRST RL 

END 
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Wir können diese Funktionen benutzen, um eindimensionale Bereichsva- 
riable (indizierte Listen) zu erzeugen. Der Wert für die Spalte ist dann 
jeweils konstant 1. Wir könnten auch neue Funktionen erzeugen, die wir 
einfach wie folgt gewinnen: 


TO DEFV1 :NAME :ELEMENTE 
DEFV :NAME 1 :ELEMENTE 
END 


TO SV1 :NAME :ELEMENT :WERT 
SV :NAME 1 :ELEMENT :WERT 
END 


TO LV1 :NAME :ELEMENTE 
OP LV :NAME 1 :ELEMENTE 
END 


?DEFVIi "LISTE 8 
?SV1 "LISTE 5 "5.FELD 


?PONS 
VLISTE 1S [Li 8] 
VLISTEI IS [L. . . . 5S.FELD .. . .] 


?PR LVi1 "LISTE 5 
5.FELD 


Da der Arbeitsspeicher letztlich nicht unbegrenzt ist, sollte man nicht 
zwingend mit dieser Lösung den freien Speicherraum weiter einengen, da 
die Arrayfunktionen ja später zusätzlich zu den Anwendungsprogrammen 
im Arbeitsspeicher stehen. 

Man sollte diese Arrayfunktionen zu einem Paket verschnüren, mit 
BURY im Speicher versteckt halten und diese Funktionen auf der Diskette 
speichern. Um Platz im Arbeitsspeicher zu sparen, können die Funktionen 
DRUCKV und FUELLV aus diesem Elementarpaket gestrichen werden. 

Die Arrayfunktionen lassen auch das Verarbeiten von Listen als Feldele- 
mente zu. Damit sind die hier vorgestellten Tabellen an keinen bestimmten 
Datentyp gebunden. Damit die Funktionen auch Listen als Feldelemente 
verarbeiten, muß in der Funktion EINSETZEN dafür gesorgt werden, daß 
die Liste als geschlossene Liste ein Element der Tabellenzeile wird. Listen 
werden in LISTE? noch einmal in eckige Klammern gesetzt, da SENTEN- 
CE sonst die Listenelemente übernehmen würde, aber nicht die Liste 
insgesamt. Damit das Gesagte deutlich wird, sollten wir einfach beide 
Versionen austesten und die Wirkung bei Listen mit der alten Funktion 
EINSETZEN betrachten. 
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TO EINSETZENL :V :S :WERT 

IF :S = 1 [OP SE LISTE? :WERT BF :V] 

OP SE LISTE? FIRST :V EINSETZENL BF :V :S - 1 :WERT 
END 


TO LISTE? :0BJ 


IF LISTP :OBJ [OP <LIST :0OBJ)] [OP :0BJ] 
END 


?DEFV "TAB 2 3 
?FUELLV "TAB 


TAB MIT FELD 1 1 ...:ICH 

TAB MIT FELD 1 2 ...:[tFELD 1,2] 
TAB MIT FELD 1 3 ...:HANS 

TAB MIT FELD 2 1 ...:[A] 

TAB MIT FELD 2 2 ...:. 

TAB MIT FELD 2 3 ...:[ABC) 


?PR LV "TAB 1 2 
FELD 1,2 


?DRUCKV "TAB 
ICH FELD 1,2 HANS 
A.ABC 


?PONS 

VTAB 1S L2 3] 

VTAB2 1S [[AI . [AB C)) 

VTABi 15 LICH [FELD 1,2] HANS] 


Abschließend wird das Gesamtlisting der obigen Elementarfunktionen 
zusammenhängend abgebildet: 


TO DEFV :NAME :2 :$ 

FOR "I 1 :2 1 IMAKE ( WORD "UV :NAME :1 >) SPALTE :5] 
MAKE (WORD "UV :NAME) SE :2 :5 

END 


TO SPALTE :$ 

LOCAL "SP MAKE "SP [LI 

REPEAT :$ IMAKE "SP SE :SP ".) 
OP :SP 

END 


TO DIW :NAME 
OP THING WORD "V :NAME 
END 
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TO LV :NAME :2 :5 

CATCH "ERROR [OP ITEM :5 THING (WORD -"V :NAME :2)] 
FEHLER 

END 


TO SV :NAME :2 :5 :WERT 

CATCH "ERROR IMAKE (WORD "V :NAME :2) EINSETZEN! THING (WORD "V 
ıNAME :2) :S :WERT) 

FEHLER 

END 


TO FEHLER 

LOCAL "FEHLER MAKE "FEHLER ERROR 
IF EMPTYP :FEHLER [STOP] 

PR LFALSCHER INDEX ?) 

PR :FEHLER 

THROW "TOPLEVEL 

END 


TO EINSETZEN :V :$ :WERT 

IF :5 = 1 [OP SE :WERT BF :V] 

OP SE FIRST :V EINSETZEN BF :V :5 - 1 :WERT 
END 


TO FUELLV :NAME 

FOR "1 1 FIRST DIW :NAME 1 [FOR "J 1 LAST DIMW :NAME 1 [SV :NAME 
ıl :J WERTV)) 

END 


TO WERTV 

TYPE (SE :NAME IMIT FELD) :1 :J "...2) 
OUTPUT FIRST RL 

END 


TO DRUCKV :NAME 

FOR "I 1 FIRST DIW :NAME 1 LFOR *J 1 LAST DIW :NAME 1 [TYPE LV 
!NAME :1 :J TYPE " I PR *] 

END 


TO FOR :VAR® :A9 :E9 :59 :BEFEHL 

LOCAL :VAR3a 

MAKE :VAR3 :A9 

REPEAT SW 1 (:E9 - :A9) / :59 [RUN :BEFEHL MAKE :VAR? :59 + THING 
:VAR9) 

END 
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28.2 Rechnen mit Matrizen 


Wir wollen als Ergänzung zu den Arrayfunktionen noch Matrizen addieren, 
multiplizieren und transponieren. Beginnen wir mit der Addition zweier 
Matrizen, deren Ergebnis in einer dritten Matrix gespeichert wird. Wir 
wollen in diesem Abschnitt von quadratischen Matrizen ausgehen, das 
heißt, die gleiche Anzahl von Zeilen und Spalten liegen bei jeder Matrix 
vor. 

Die Addition von Matrizen ist wie folgt definiert: 


a &% 
bı, b 


c © 
dı & 


_Jaıt+tc 2+% 


Jedes Feldelement wird mit dem entsprechenden Feldelement addiert 
und ergibt das neue Feldelement der Ergebnistabelle. 


Sehen wir uns die entsprechende Benutzerfunktion MATADD an, die als 
Eingabe nur die drei Namen der Matrizen verlangt. Die Eingabevariable :C 
nimmt den Namen der Ergebnismatrix auf. 


TO MATADD :A :B :C 

FOR "1 1 FIRST DIW :A 1 [FOR "J 1 LAST DIMV ıA 1 
[SV ıC :ı1 :J SUM LV :A :1I :J LV :B :1 :J9)])] 

END 


Testen wir gleich die neue Funktion und definieren wir eine 3X3-Matrix, 
die dann auf bekannte Weise mit den Zahlen von 1 bis 9 belegt wird. Hier 
soll im Beispiel die Matrix ”A mit sich selbst addiert und das Ergebnis in der 
Matrix ”A gespeichert werden. 


?DEFV "A 33 

?FUELLV "A 

A MIT FELD 1 1 ...:l 
AMIT FELD 1 2 ...ı2 
AMIT FELD 1 3 ...:3 
AMIT FELD 2 1 ...:4 
AMIT FELD 2 2 ...:5 
AMIT FELD 2 3 ...:6 


Arbeiten mit Bereichsvariablen (Arrays) 281 


A MIT FELD 3 ı 
AMIT FELD 3 2 ...:8 
A MIT FELD 3 3 


?DRUCKV "A 

123 

456 

789 

PMATADD "A "A "A 
?DRUCKV "A 

246 


8 10 12 
14 16 18 


Wird eine Matrix mit einer Zahl multipliziert, so wird jedes Feldelement 
mit dieser Zahl multipliziert. Die Eingabevariablen sind: :A für die mit der 
Zahl zu multiplizierende Matrix, :C die Ergebnismatrix und :ZAHL der 
konstante Zahlenwert. 


TO MATMULTZ ıA :C :ZAHL 

FOR "1 1 FIRST DIMV :A 1 [FOR "J 1 
LAST DIMV :A 1 [SV :C 3:1 

ıJ < LV sA sl :J > * :ZAHLI) 

END 


In dem Beispiel wird die schon bekannte Matrix ”A mit der Zahl 100 
multipliziert und das Ergebnis gleich in ”A wiederum gespeichert. 


?MATMULTZ "A "A 100 
?DRUCKV "A 

200 400 400 

800 1000 1200 

1400 1600 1800 


Das Multiplizieren von Matrizen ist schon etwas aufwendiger. Sehen wir 
uns gleich die Regeln hierzu an. 


c © 
dı & 


_ | 4ıCı + ad, ac + a,d, 
bicı + b»d, bio + b.d, 


Ein neues Feldelement der Ergebnismatrix entsteht durch das Aufsum- 
mieren von Produkten bestimmter einzelner Elemente. Die Elemente einer 
Zeile werden mit den Elementen der entsprechenden Spalte multipliziert. 
Das erste neue Feldelement entsteht im Beispiel durch Multiplikation des 
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ersten Zeilenelements mit dem ersten Spaltenelement der ersten Spalte der 
zweiten Matrix, zusammengezählt mit dem Produkt vom zweiten Element 
der ersten Matrixzeile und dem zweiten Element der ersten Spalte der 
anderen Matrix. Das Gewinnen solch eines neuen Feldelements steht in 
Verbindung mit der Funktion FELDC, die nur die Multiplikation bildet. 
FELDC mußte gebildet werden, da der Apple-Rechner keine längeren 
Eingabezeilen zuläßt und auf diese Weise Abhilfe geschaffen werden konn- 
te. 


TO MATMULT ıA :B :C 

FOR "1 1 FIRST DIW :A 1 [FOR "K 1 LAST DIMV :B 1 
[MAKE "S 0 FOR "J 1 LAST DIMV :A 1 IMAKE "S :$ + 
FELDCI SV :C :1 :K :$S ]] 

END 


TO FELDC 
OP <LV :sA :ıl :ıJ) * <LV :B :J ıK) 
END 


Definieren wir auf schon bekannte Weise die drei Matrizen A, Bund C. 
In der Matrix C soll das Ergebnis der Multiplikation gespeichert werden. 
Die beiden Matrizen werden mit den Zahlen 1, 2, 3, 4 und 5, 6, 7 und 8 
durch Benutzen der Hilfsroutine FUELLV belegt. 


?DRUCKV "A 
12 
s4a 


?DRUCKV "B 
56 
8 


?MATMULT "A "B "C 
?DRUCKV "C 

19 22 

43 50 


Das Transponieren einer Matrix bedeutet das Vertauschen von Zeilen 
und Spalten. Am einfachsten wird die Erklärung durch das kleine Beispiel: 
Die Matrix A soll transponiert werden in die Ergebnismatrix von C. 


?DRUCKV "A 
ABC 

DEF 
GHI 
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?DEFV "C 33 
?MATTRANS "A "C 


?DRUCKV "C 
ADG 

BE H 
cerFI 


Die zugehörige Funktion MATTRANS lautet: 


TO MATTRANS :A :C 

FOR "1 1 FIRST DIW :A 1 [FOR "J 1 LAST DIMV ıA 1 
[SV :C :J :sI LV :A :1I :J]] 

END 


28.3 Querschreiben von Texten 


In diesem Beispielabschnitt wollen wir die Einzelwörter eines Satzes jeweils 
senkrecht nebeneinander schreiben. Stellen wir die Aufgabe schematisch 
dar. 


[HAMBURG an BERLIN] 


QUERTEXT 
y 


H 
A 
M 
B 
U 
R 
G 


zuumnazmcaz 


Überlegen wir uns die voraussichtlichen Teilprogramme von QUER- 
TEXT. Wir wollen unsere Arrayfunktionen benutzen. Wir könnten bei- 
spielsweise eine Matrix füllen und sie dann mit der Funktion MATTRANS 
transponieren. Da wir in jedem Falle eine Matrix mit den Elementen des 
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Satzes füllen müssen, verzichten wir auf diese naheliegende Lösung. Jedes 
einzelne Wort belegt in der Matrix eine Spalte. Das erste Wort belegt die 
erste Spalte (Senkrechte der Tabelle). Die einzelnen Buchstaben belegen 
die einzelnen Felder der Spalte. Wenn wir auf diese Art und Weise die 
Matrix mit Buchstaben füllen, brauchen wir beim Ausdrucken nur die 
einzelnen Zeilen der Matrix der Reihe nach auszudrucken, um die senk- 
rechten Wörter zu gewinnen. Da wir in unserer Funktion nur den Satz mit 
beliebig vielen Wörtern eingeben wollen, müssen wir Funktionen vorsehen, 
die uns die Matrix richtig definiert, das heißt die notwendige Spalten- und 
Zeilenanzahl ermittelt. 


QUERTEXT kann wie folgt grob gegliedert werden: 

— Dimensionieren der Matrix, das heißt Ermitteln, wie viele 
Zeilen und Spalten notwendig sind 

— Spaltenorientiertes Füllen der Matrix 

— Ausdrucken der Matrixzeilen 


Überlegen wir uns den Teilbereich DIMENSIONIEREN genauer. Die 
Anzahl der Spalten entspricht der Anzahl der Wörter des Satzes (für jedes 
Wort eine Spalte). Die Anzahl der Buchstaben des längsten Wortes be- 
stimmt die Anzahl der Elemente pro Spalte, und das bedeutet ja die 
gesuchte Anzahl von Zeilen für die Dimensionierung der Matrix. Wir 
müssen somit noch eine Operation definieren, die alle Wörter des Satzes 
untersucht und die Anzahl der Buchstaben des längsten Wortes liefert. Mit 
diesem Wert und der Anzahl der Elemente des Satzes können wir nun die 
Matrix definieren, der wir einfach den Namen ”A geben wollen. 


TO DIMENSIONIEREN 
DEFV "A MAX.WORT.LAENGE :SATZ COUNT :SATZ 
END 


TO MAX .WORT.LAENGE :SAT2Z 

IF COUNT :SATZ = 1 [OP COUNTW FIRST :SATZ] 

OP MAXIMUM COUNTW FIRST :SATZ MAX .WORT.LAENGE 
BF :SATZ 

END 


TO MAXIMUM :A :B 
TEST :A > :B 

IFT [OP :A] 

IFF LOP :B] 

END 
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Testen wir gleich einmal den bisherigen Entwurf mit seinen Teilkompo- 
nenten: 


TO QUERTEXT :SATZ 
DIMENSIONIEREN 
END 


?PR MAX.WORT.LAENGE LICH GESTERN DU] 
Lg 
?QUERTEXT LICH GESTERN DU] 


?DRUCKV "A 


?PR DIMV "A 
?3 


Jetzt müssen wir die Funktion entwerfen, die unsere Tabelle spaltenweise 
füllt. MATRIXFUELLEN arbeitet rekursiv und ruft die Funktion 
WORT.IN.SPALTE auf, die mit dem jeweiligen Wort und der zugehörigen 
Spaltennummer beliefert wird. Da im Regelfall mit der ersten Spalte 
begonnen wird, erhält MATRIXFUELLEN beim Aufruf den Anfangswert 
1 für die Eingabevariable :SPALTENNR. 


TO MATRIXFUELLEN :LISTE :SPALTENNR 

IF EMPTYP :LISTE [STOPI 

WORT.IN.SPALTE SPIEGEL FIRST :LISTE :SPALTENNR 
MATRIXFUELLEN BF :LISTE :SPALTENNR + 1 

END 


TO WORT.IN.SPALTE :WORT :SNR 

FOR "I 1 COUNTW :WORT 1 [SV "A :I :SNR FIRST 
:WORT MAKE "WORT BF :WORT]I. 

END 
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Testen wir auch gleich diese neue Komponente: 


?MATRIXFUELLEN LICH GESTERN DU] 1 
?DRUCKU "A 


IGD 
CEU 
HS. 
. T. 
.E. 
ı: R. 
. N. 


Als Abschluß bleibt noch die Ausgaberoutine. Die zu Testzwecken 
nützliche Hilfsroutine DRUCKV ist doch etwas mager. Kern der Ausgabe- 
routine ist eine FOR-Schleife, in der jeweils die Funktion DRUCKZEILE 
aufgerufen wird. Damit die einzelnen Spalten auseinandergezogen werden, 
kann in DRUCKZEILE ein beliebiger Füller vorgegeben werden. Es 
können Leerzeichen oder sonstige Zeichen sein. Untersuchen wir einmal 
DRUCKZEILE: 


?PRINT DRUCKZEILE 1 1 " 


Zorsch 2 22:8r oo: 'D 
?PRINT DRUCKZEILE 2 I "\ NN NN 
c E U 


?PRINT DRUCKZEILE 2 1 "..... 
.oe..C.ceeeE.... U 


TO AUSGABEV 

FOR "1 1 FIRST DIMV "A 1 LPR DRUCKZEILE :1 
> Ba ] 

END 


TO DRUCKZEILE :Z :S :FUELLER 

IF :S > LAST DIMV "A [OP " ] 

OP <WORD :FUELLER LV "A :2 :S DRUCKZEILE :2 
ıS + 1 :FUELLER) 

END 


Damit ist unser Programmentwurf abgeschlossen. Das Leitprogramm 
QUERTEXT sieht wie folgt aus. Überprüfen wir es noch einmal. Vergessen 
wir aber nicht, zur Pflege des Arbeitsspeichers ERNS einzugeben, damit 
die nicht mehr benötigten Globalvariablen vorheriger Beispiele gelöscht 
sind. 
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TO QUERTEXT :SATZ 
DIMENSIONIEREN 
MATRIXFUELLEN :SATZ 1 


AUSGABEV 
END 
?ERNS 
?QUERTEXT ECHIP WISSEN VOM VOGEL VERLAG] 
c W vu v u 
H I oO E 
1 Ss M G R 
P s . E L 
. E . EL A 
. N . . G 


Die Punkte stammen noch vom Dimensionieren der Tabelle durch 
DEFV. Wer die Punkte durch Leerzeichen ersetzt haben möchte, muß in 
DEFV die Routine Spalte ändern und statt des dort vorgesehenen Punkts 
das Leerzeichen eingeben. 

Wir wollen zum Abschluß noch einige Spielereien mit der Ausgaberouti- 
ne kennenlernen. 


Variante 2: 
P N M L G 
I E [e] E A 
H S V G G 
c Ss A [8] R 
. 1 . UV E 
° W . A VD 
Variante 3: 
P M L G 
I E [8] E A 
H s L 
S . R 
. I . E 
e W . . v 
Variante 4: 
& N ° . G 
. - L A 
P Ss ö E L 
I R 
H I oO [n7 E 
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Variante 2 läßt sich einfach realisieren, indem beim Füllen der Matrix das 
jeweilige Wort schnell noch mit der bekannten Rekursion SPIEGEL umge- 
dreht wird: 

Variante 3 verbessert die Variante 2, indem die einzelnen Druckzeilen 
gegeneinander nach rechts versetzt werden. In der Ausgaberoutine ist 
einfach nur die Funktion SCHRAEG hinzugefügt worden, die die Opera- 
tion FUELLER aus Kapitel 10 verwendet. 


TO AUSGABEV 
FOR "I 1 FIRST DIMV "A 1 LPR WORD SCHRAEG 


ı1I DRUCKZEILE :I 1" ] 

END 

TO SCHRAEG :2ZNR 

OP FUELLER " <FIRST DIMV "A) - :ZNR 
END 


Variante 4 beginnt mit allen Anfangsbuchstaben im Gegensatz zur Va- 
riante 3 auf der untersten Zeile. Hierfür mußte die Funktion WORT.IN- 
‚SPALTE geändert werden. Die Spaltenelemente sind mit den jeweiligen 
Buchstaben in umgekehrter Reihenfolge belegt worden: also nicht von 1 bis 
6, sondern von 6 bis 1. Der erste Buchstabe des jeweiligen Wortes wurde an 
die sechste Stelle gesetzt. 


TO WORT.IN.SPALTEi :WORT :SNR 

FOR "1 FIRST DIMV "A <1 + FIRST DIMV "A) - COUNTW 
:WORT -1 EL SV "A :1I :SNR FIRST :WORT MAKE 

"WORT BF :WORT] 

END 


Aus Platzgründen wird nicht das Gesamtlisting angeführt. Wir listen nur 
die Funktionsnamen auf, die über das Stichwortverzeichnis aus den voran- 
gegangenen Abschnitten entnommen werden können. 


TO WORT.IN.SPALTE1 :WORT :SNR 
TO SPIEGEL :WORT 

TO SCHRAEG :ZNR 

TO AUSGABEV 

TO DRUCKZEILE :2 :S :FUELLER 
TO WORT.IN.SPALTE :WORT :SNR 
TO COUNTW :WORT 

TO MAX.WORT.LAENGE :SATZ 

TO MAXIMUM :A :B 

TO DIMENSIONIEREN 

TO FUELLER :ZCHN :ANZAHL 


TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 
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QUERTEXT :SAT2Z 

WORTINLISTE :WORT 

MATRIXFUELLEN :LISTE :SPALTENNR 
LU :NAME :2 :5 

SV :NAME :2 :S :WERT 

DIMV :NAME 


EINSETZEN :V :S :WERT 
DEFV :NAME :2 :S 
SPALTE :S 

FEHLER 


FOR :VAR3 :A3 :E9 :S9 :BEFEHL 
DRUCKV :NAME 


Zur Programmdokumentation ist das einfache Auflisten der Funktions- 
namen doch letztlich unübersichtlich. Mit einem Programm, das weiter 
unten dargestellt wird, haben wir uns die Struktur des Programms QUER- 
TEXT ermitteln lassen. 


?PROGRAMMSTRUKTUR 

WIE LAUTET<N) DIE LEITFUNKTION<EN) ? 
QUERTEXT 

0 :QUERTEXT 


1: 
2: 
33 
4: 
5} 
33 


33 


DVWEWUNNN+-NBUD 


«..DIMENSIONIEREN 

“eo... .MAX.WORT.LAENGE* 
“ee00... .LCOUNTW 

“zen... .WORTINLISTE* 
“seeeennc..«WORTINLISTE*+ 
“0.0. .MAXIMUM 

“0... COUNTW+ 

“0. .MAX.WORT.LAENGE*+ 
MATRIXFUELLEN* 

...DIMV 
...WORT.IN.SPALTE 
......FOR 


2... .EINSETZEN* 
“nenn. „EINSETZEN*+ 
v0... . FEHLER 
.MATRIXFUELLEN*+ 
SGABEU 

.FOR+ 

.DIMV+ 
.DRUCKZEILE* 

2... DIMU+ 

BES, 

220... FEHLER+ 
....DRUCKZEILE*+ 


A 


ee ee ie 
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Die Darstellung führt hierarchisch gegliedert die einzelnen Funktionsna- 
men auf. Man spricht bei solchen Darstellungen auch von einer Baum- 
struktur. Alle Funktionen, die vom Leitprogramm (Ebene 0) aufgerufen 
werden, bilden die Ebene 1. Die zugehörigen Funktionen stehen auch 
genau in einer Kolonne linksbündig untereinander. Zusätzlich ist am An- 
fang vor jedem Funktionsnamen noch die Aufrufebene angegeben. + 
kennzeichnet rekursive Funktionen, und + bedeutet, daß diese Funktion 
bereits oberhalb erklärt worden ist und nicht noch einmal ausführlich weiter 
gekennzeichnet wird. 


28.4 Arraysorts: Bubblesort und Quicksort 


Sortierverfahren sind ein Themenkreis der Informatik. Bereits in Kapitel 10 
haben wir einen listenorientierten Sort kennengelernt. Da wir das Instru- 
mentarium für arrayorientierte Sortierverfahren besitzen, sollen zwei Pro- 
grammbeispiele vorgestellt werden, ohne daß wir uns im einzelnen mit 
Sortierverfahren oder deren Erklärung beschäftigen wollen. Die Pro- 
grammlistings sollen Interessierte zum Experimentieren anhalten, und es 
soll gezeigt werden, daß Logo für alle Fragestellungen eine Lösung anbie- 
ten kann. 

Die Arraysorts arbeiten mit eindimensionalen Bereichsvariablen. Somit 
liegt die Sonderform unserer Tabellen- oder Matrixfunktionen vor, näm- 
lich, daß die Tabellen nur aus einer Zeile bestehen. 

Zur Verdeutlichung des Bubblesorts sehen wir uns die zehnelementige 
Liste mit dem Namen «Probe» an. Starten wir dann den Bubblesort. Jede 
Veränderung der Liste lassen wir dabei ausdrucken, damit die Arbeitsweise 
des Bubblesorts deutlich wird. 


?DRUCKV "PROBE 
9997 781 780 301 223 799 798 400 555 111 


?BUBBLE.SORT "PROBE 
999 781 780 301 223 799 798 400 555 111 


111 999 981 780 301 223 799 798 600 555 
111 223 999 981 780 301 555 799 798 600 


111 223 301 999 981 780 555 600 799 798 
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111 223 301 555 999 981 780 400 798 799 
111 223 301 555 600 999 981 780 798 799 
111 223 301 555 6400 780 999 981 798 799 
111 223 301 555 600 780 798 999 981 799 
111 223 301 555 400 780 798 799 999 981 


111 223 301 555 600 780 798 799 981 999 


Das kleinste Element wird ermittelt und nach vorne gebracht. Wie Blasen 
steigen die jeweils kleinsten Elemente des noch unsortierten Teils der Liste 
an die Oberfläche (der linke Rand in diesem Falle). Die Programme seien 
ohne weitere Erklärung im folgenden aufgelistet: 


TO BUBBLE.SORT :NAME 
LOCAL "I MAKE "10 
LOCAL "ENDE MAKE "ENDE LAST DIMV :NAME 


REPEAT :ENDE I[MAKE "I :I + 1 KLEINSTES.NACH.VORNE 
sENDE :1) 


END 


TO KLEINSTES.NACH.VORNE :ENDE :ANF 

LABEL "START 

IF <LV :NAME 1 :ENDE - 1) > <LV :NAME 1 :ENDE) 
LAUSTAUSCH]I MAKE "ENDE :ENDE - 1 

IF :ENDE > :ANF [GO "STARTI 

END 


TO AUSTAUSCH 

LOCAL "H MAKE "H LV : 

SV :NAME 1 :ENDE LV :NAME 1 <:ENDE - 1) 
SV :NAME 1 :ENDE - 1 :H 

END 
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Die Protokollierung haben wir erreicht, indem wir einfach unsere be- 
kannte Hilfsroutine DRUCKV in der REPEAT-Anweisungszeile eingefügt 
haben. 

Der BUBBLE.SORT kann natürlich auch Wörter sortieren, wenn wir 
nur eine entsprechende Prüffunktion GREATER vorsehen und sie entspre- 
chend in BUBBLE.SORT einbinden. 


?BUBBLE.SORT "PROBE 


?DRUCKV "PROBE 
ANTON BERLIN BERTA DU EMIL FFM HH ICH LISA 200 


?DRUCKV "PROBE 
ICH DU BERLIN HH FFM EMIL LISA ANTON BERTA 200 


Das Prüfwort GREATER benutzt aus Kapitel 10 die Operation 
W1.VOR.W2?. Das Ergebnis muß mit NOT verneint werden, da sonst nicht 


auf «größer» erkannt werden würde. Vergleiche hierzu die Besprechung in 
Kapitel 10. 


TO GREATER :0BJi1 :0BJ2 


OP NOT W1.VOR.W2? :0BJi :0BJ2 
END 


TO W1.VOR.W2? :W1 :W2 

IF EMPTYP :Wi LOP "TRUE]I 

IF EMPTYP :W2 LOP "FALSE) 

IF FIRST :W1 = FIRST :W2 LOP W1.VOR.W2? BF :Wi 
BF :W2] OP ASCII FIRST :Wi < ASCII1 FIRST :W2 


Der Quicksort ist eine rekursive Funktion, die die Liste in Teillisten 
zerlegt und diese entsprechend weiter zerlegt und dabei sortiert. 


TO QUICKSORT :L :R :NAME 

LOCAL "A LOCAL "B 

ZERLEGEN :L :R 

IF :L < :B ELQUICKSORT : 
:R [QUICKSORT : 
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TO ZERLEGEN :I :J 

MAKE "A :1 MAKE "B :J 

MAKE "X.KEY LV :NAME 1 QUOTIENT (C:A + :B) 2 

WIEDERHOLE IABFRAGE IF NOT ( :A > :B ) LUMSTELLENI [STOPI] BIS [:A > :B] 
END 


TO ABFRAGE 

WHILE LE NOT :A > :B )) DO LIF GREATER :X.KEY LV :NAME I :A 
IMAKE "A :A + 1) [STOPI] 

WHILE LC NOT :A > :B )1 DO LIF GREATER LV :NAME 1 

:B :X.KEY IMAKE "B :B - 1) [STOPI] 

END 


TO UMSTELLEN 

MAKE "W C LV :NAME 1 :A ) 

SV :NAME 1 :A ( LV :NAME 1 :B ) 
SV :NAME 1 :B :W 

MAKE "A :A + 1 MAKE "B :B - 1 
END 


DRUCKV "PROBE 
ZJDEPAFGWA 


QUICKSORT 1 10 "PROBE 


DRUCKV "PROBE 
AADEFGJPWZ 


Das Programm sucht mit Hilfe der aufgerufenen Funktion ZERLEGEN 
ein willkürliches Listenelement heraus, das hier :X.KEY genannt wird. 
Dann wird mittels ABFRAGE die Liste durchsucht, wobei — angefangen 
am linken Ende - so lange die nachfolgenden Elemente untersucht werden, 
bis ein größeres Element als :X.KEY gefunden worden ist. Auf gleiche 
Weise wird vom rechten Ende ausgehend die Liste nach einem kleineren 
Wert durchsucht. Bei eingetretenen Bedingungen werden mit der Funktion 
UMSTELLEN die beiden Elemente gegeneinander ausgetauscht. Der so 
gekennzeichnete Vorgang wird so lange wiederholt, bis die komplette Liste 
durchgesucht ist. Jetzt ist die Ausgangsliste in zwei Teillisten aufgespaltet. 
Eine Liste enthält alle Elemente, die alphabetisch nach :X.KEY kommen. 
Die andere Liste enthält alle Werte, die im Alphabet vor :X.KEY kommen. 
Jetzt werden die einzelnen Teillisten erneut mit QUICKSORT verarbeitet. 
Das geht so lange, bis Teillisten mit einem Element entstanden sind. 

Damit der hier beschriebene Vorgang studiert werden kann, sind Testhil- 
fen im Programm QUICKSORT eingebaut worden. Sie sollen die jeweili- 
gen Teillisten und die jeweiligen Anfangs- und Endnummern der Werte in 
der Liste ausdrucken. Jeder QUICKSORT-Aufruf wird mit seiner linken 
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und rechten Grenze protokolliert. Die veränderten Funktionen und die 
Hilfsroutine AUSGABE werden aufgelistet. Dann folgt ein Test, an dem 
man das oben Gesagte bei Interesse genauer untersuchen kann. 

Der hier dargestellte Algorithmus ist als Pascal-Version der Literatur 
entnommen: Wirth, N.: Algorithmen und Datenstrukturen. Stuttgart, 1979. 


TO QUICKSORT :L :R :NAME 

LOCAL "A LOCAL "B 

(PR LQUICKSORT DER ELEMENTE:] :L "BIS :R) 

ZERLEGEN :L :R 

(PR [ZERLEGT IN: ) AUSGABE :NAME :L :B "UND AUSGABE :NAME :A :R) 
(PR LINDEXBEREICHE: ] :L "BIS :B "UND :A "BIS :R) PR () 

IF :L < :B LQUICKSORT :L :B :NAME) 

IF :A < :R TQUICKSORT :A :R :NAME] 

END 


TO ZERLEGEN :I :J 

MAKE "A :1 MAKE "B :J 

MAKE "X.KEY LV :NAME 1 QUOTIENT (:A + :B) 2 

PR SE I[X.KEY IST===) ) :X.KEY 

WIEDERHOLE [ABFRAGE IF NOT ( :A > :B ) LUMSTELLEN] [LSTOP]] 
BIS [L:A > :B] 

END 


TO AUSGABE :VEKTOR :V :B 

IF :B< :V [OP ") 

OP SE AUSGABE :VEKTOR :V :B - 1 LV :VEKTOR I :B 
END 


?DRUCKV "PROBE 
ZJDEPAFGWA 


?QUICKSORT 1 10 "PROBE 

QUICKSORT DER ELEMENTE: 1 BIS 10 

X.KEY IST===)>) P 

ZERLEGT IN: AJDEGAFWD PW2 
INDEXBEREICHE: 1 BIS 7 UND 8 BIS 10 


QUICKSORT DER ELEMENTE: 1 BIS 7 
x.KEY IST===)>) E 

ZERLEGT IN: AADUND GJF 
INDEXBEREICHE : 1 BIS 3 WD 5 BIS 7? 


QUICKSORT DER ELEMENTE: 1 BIS 3 
X.KEY IST===) A 

ZERLEGT IN: AUND AD 
INDEXBEREICHE: 1 BIS 1 UND 2 BIS 3 
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QUICKSORT DER ELEMENTE: 2 BIS 3 
Xx.KEY IST===> A 

ZERLEGT IN: UND D 

INDEXBEREICHE: 2 BIS 1 UND 3 BIS 3 


QUICKSORT DER ELEMENTE: 5 BIS 7 
x.KEY IST===>) J 

ZERLEGT IN: G FUND J 
INDEXBEREICHE: 5 BIS $& UND 7 BIS 7 


QUICKSORT DER ELEMENTE: 5 BIS & 
x.KEY IST===) G 

ZERLEGT IN: FUND G 
INDEXBEREICHE: 5 BIS 5 UND 4 BIS & 


QUICKSORT DER ELEMENTE: 8 BIS 10 
x.KEY 1IST===>) W 

ZERLEGT IN: PWUWND 2 

INDEXBEREICHE: 8 BIS 8 UND 10 BIS 10 


?DRUCKV "PROBE 
AADEFGJPWUWZ 
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Dieses Programm ist beispielsweise in Abschnitt 28.3 benutzt worden, um 
die Programmstruktur zu ermitteln und ausdrucken zu lassen. Dargestellt 
wird die Hierarchie der verwendeten Funktionen. Auf jeder Ebene kom- 
men eine oder mehrere Funktionen vor, die weitere Funktionen der darun- 
terliegenden Ebene rufen können. Solch eine Baumstruktur stellen wir 
einmal schematisch dar, wobei wir das Leitprogramm mit LEITUNG 
bezeichnen und die anderen Funktionen mit einfachen Buchstaben und 
einer Zählnummer. Angenommen wird die folgende Struktur: 


Leitung Ebene ® 
Al A2 A3 Ebene 1 
Bl B2 B2 B3 B3 Ebene 2 


cl c2 cCcı C2 Ebene 3 


Die Funktion B3 auf Ebene 2 soll rekursiv sein und wird in unserem 
Programm mit einem angehängten » gekennzeichnet. Der angehängte 
Zusatz + kennzeichnet, daß diese Funktion bereits erklärt worden ist. 
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?PREÜGRAMMSTRUKTUR 
WIE LAUTET<N) DIE LEITFUNKTION<EN) ? 
LEITUNG 


Zteoee...Bil 


„or... .B3%*t 
....B2+ 

‚A3 
....B3%#+ 


ND-NWWUOND-N 


Die zugehörigen Demonstrationsfunktionen lauten: 


TO LEITUNG ?POTS 

Ai TO LEITUNG 

A2 TO Ai 

A3 TO A2 

END TO A3 
TO Bi 

To Ai To B2 

Bi TO B3 

B2 To ci 

END To c2 

TO A2 

B3 

B2 

END 

TO B3 

ci 

c2 

B3 

END 


?PR TEXT "LEITUNG 
[3 [Ai] [A2]I [A3] 
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Sehen wir uns das Leitprogramm PROGRAMMSTRUKTUR mit seinen 
Programmteilen an: 


TO PROGRAMMSTRUKTUR 

MAKE "SPRCGS 3FKTN „CONTENTS 

DEF :3PROGS 

PR [WIE LAUTET<ND DIE LEITFUNKTION<EN) 7?) 
MAKE "3LTG RL 

DRUCK :aLTG 0 

END 


Allen Funktionsnamen ist das Zeichen @ vorangestellt, damit diese 
speziellen Funktionen gegenüber den zu untersuchenden Funktionsnamen 
unterschieden werden können. 

Die Funktion @FKTN ermittelt in der Globalvariablen @PROGS alle 
vorkommenden Funktionsnamen der zu untersuchenden Programme. Die 
Logofunktion .CONTENTS liefert alle dem Logosystem bekannten Namen 
von Variablen, Benutzerfunktionen und Systemfunktionen. Wir müssen nur 
die Namen herausfischen, die weder Logofunktionen sind noch Funktionen 
unseres Programmpakets PROGRAMMSTRUKTUR, aber Funktionsna- 
men sind. Das zugehörige Prüfwort lautet @FKT?. Tippen wir einmal am 
Rechner PRINT ..CONTENTS ein, um diese unbekannte Funktion kennen- 
zulernen. Mehr als zweihundert Einträge hat diese Liste, die somit abge- 
prüft werden müssen. In @PROGS müssen also anschließend die oben 
genannten Funktionsnamen des zu untersuchenden Programms sein: 


TO 3FKTN :9 

LOCAL "33 MAKE "93 [)] 

REPEAT COUNT :93 I[MAKE "993 SE :939 3FKT? 
FIRST :9 MAKE "9 BF : 93] 

OP :»393 

END 


TO aFKT? :9W 

IF EMPTYP :aW LOP L[)]] 

IF PRIMITIVEP :9W LOP [L)] 

IF EQUALP FIRST :@W "3 [OP L[L)) 
IF DEFINEDP :9W LOP :aW] LOP L)] 


SPROGS 15 LPROGRAMMSTRUKTUR B3 B2 Bi 
cı C2 A3 A2 Al LEITUNG] 
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Im nächsten Teil greift die Funktion @DEF auf die Einträge dieser Liste 
zu. Jeder Funktionsname wird in @DEF in Verbindung mit TEXT benutzt, 
um den jeweiligen Funktionsinhalt zu gewinnen. @RUFT ermittelt dann 
mit der schon bekannten Funktion @FKT? die hierin enthaltenen Funk- 
tionsnamen. Da die Listenstruktur der zu untersuchenden Funktionen uns 
im einzelnen nicht bekannt ist, muß jedes einzelne Element jeder Teilliste 
somit untersucht werden! 

Die Hilfsfunktion @W wandelt eine strukturierte Liste in eine Liste um, 
die keine Listen mehr enthält. Sehen wir uns das Beispiel an: 


?SHOW BF TEXT "34 

[LLOCAL "9193 IMAKE "QL9 LI) LLABEL "ANF) LIF EMPTYP :9 LOP :aLa [2)) LIF LISTP FIRST :9 L 
MAKE "9 SE FIRST :9 BF :9 60 "ANFIJ IMAKE "aL9 SE :aL9 FIRST :9) IMAKE "9 BF :9) [GO "ANF] 
] 


?SHOW 4 BF TEXT "au 
[LOCAL "9L9 MAKE "aL9 LABEL "ANF IF EMPTYP :9 OP :@La IF LISTP FIRST :9 MAKE "9 SE FIRST : 
9 BF :9 60 "ANF MAKE "aLa SE :@L9 FIRST :@ MAKE "9 BF :9 60 "ANF] 


Als Ergebnis werden die ermittelten Funktionsnamen dem Namen der sie 
rufenden Funktion zugeordnet. Ergebnis sind dann die folgenden Variablen 
mit ihren Inhalten. Funktionen, die keine weiteren Funktionen aufrufen, 
haben die leere Liste zum Inhalt. 


TO ®aDEF :9F 

LABEL "ANF 

LOCAL "3aN MAKE "AN EL] 

IF EMPTYP :aF [STOP] 

RUFT aW BF TEXT FIRST :9aF 
MAKE FIRST :9F :9aN 

MAKE "aF BF :9aF 

GO "ANF 

END 


TO RUFT :9L 

LABEL "ANF 

TEST EMPTYP :93L 

IFT [LMAKE "9aN SE :9N L] STOP] 
MAKE "aN SE :9N aFKT? FIRST :9L 
MAKE "aL BF :9aL 


GO "ANF 
END 
To au :9 


LOCAL "aL9 
MAKE "ala [)] 
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LABEL "ANF 

IF EMPTYP :3 [OP :93L9 []) 

IF LISTP FIRST :9@ [MAKE "9 SE FIRST :3 BF 
:9 GO "ANF]I 

MAKE "aL9 SE :9L9 FIRST :9 

MAKE "3 BF :9 

GO "ANF 

END 


TO aFKT? :aW 

IF EMPTYP :9W [OP [L)] 

IF PRIMITIVEP :9W [OP L)) 

IF EQUALP FIRST :aW "9 [OP L]] 
IF DEFINEDP :aWw [OP :9W] [OP LI) 


PROGRAMMSTRUKTUR IS [] 
B3 1S [Ci C2 B3) 


LEITUNG I1S [Ai A2 A3) 


Das Druckprogramm @DRUCK greift dann in Verbindung mit dem per 
Anfrage an den Benutzer gewonnenen Namen der Leitfunktion auf die 
entsprechende Variable zu. @DRUCK erhält als Eingabe die Liste mit den 
Namen Al, A2 und A3. Die zweite Eingabe steuert die Punktzahl für das 
Druckbild und ist mit der jeweiligen Hierarchieebene gleichbedeutend. In 
der Ebene 0 werden keine Punkte ausgegeben. 


TO 3DRUCK :3FKTN :3PZAHL 

IF EMPTYP :3FKTN LSTOP)I 

TEST 3ERKLAERT? FIRST :3FKTN 

SDRZEILE FIRST :9aFKTN :9PZAHL 

IFF LCaDRUCK THING FIRST :3FKTN 1 + :9PZAHL]I 
DRUCK BF :9aFKTN :9PZAHL 

END 


TO 9DRZEILE :9F :9P 

<£PR <WORD :9aP ": 3aPKTE :3P :9aF JREKURSIV 
:aF 3BEKANNT :9aF)) 

END 


TO aPKTE : 
IF :9ANZ = 0 [OP * ] 
OP WORD "... @PKTE : 
END 
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TO JREKURSIV :9F 
IF MEMBERP :aF THING :9aF [OF "x] [OP " ) 
END 


TO BEKANNT :9aF 

IF QERKLAERT? :9aF [OP "+J [MAKE WORD "ALT. 
:aF [J OP" ) 

END 


TO 3ERKLAERT? :9F 
OP NAMEP WORD "ALT. :9F 
END 


Um zu verhindern, daß schon erklärte Funktionen erneut erklärt werden, 
mußten Merkhilfen künstlich erzeugt werden. Wenn eine Funktion erklärt 
worden ist, so wird eine Variable mit dem Zusatz ”ALT zum Funktionsna- 
men definiert. Dies wird innerhalb @DRZEILE mit der Funktion @BE- 
KANNT und dem Prüfwert @ERKLAERT? Gesteuert. Ist die gesamte 
Programmstruktur ausgedruckt, müssen alle Funktionsnamen als Variable 
mit dem Zusatz ”ALT. vorkommen: 


ALT.A3 IS [] 
ALT.C2 1S [] 
ALT.C1 IS [] 
ALT.B3 IS [] 
ALT.A2 IS [] 
ALT.B2 1S [)] 
ALT.Bi IS [] 
ALT.A1i IS [] 


ALT.LEITUNG IS [] 
SLTG 1S L[LEITUNG)I 


Abschließend einige praktische Hinweise: 

Um Nebeneffekte zu vermeiden, sollte man vor jeder Dokumentation - 
vor allem von größeren Programmen - das System neu laden. Dann sollte 
unbedingt alles über STARTUP-Dateien unnötig Geladene gelöscht wer- 
den, um den Arbeitsspeicher für das zu untersuchende Programm und das 
Auswertungsprogramm PROGRAMMSTRUKTUR frei zu halten. (Beim 
LSCI-Logo also ERPS ”AIDS eingeben, sofern die Originaldiskette des 
Herstellers benutzt wird). Nach dem Programmlauf sollte man unbedingt 
mit ERNS (ER NAMES) alle Globalvariablen löschen. Sinnvoll wäre auch, 
daß das Programmpaket PROGRAMMSTRUKTUR mit einem Paketna- 
men und der Eigenschaft ”BURY versehen und entsprechend auf der 
Diskette gespeichert ist. . 

PROGRAMMSTRUKTUR kann sich auch selber untersuchen: 
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....@RUFT 
oo0....9FKT?+ 

... DW 

aDRUCK* 
...WERKLAERT? 
...@DRZEILE 
..aPKTE* 
.....9@PKTE*+ 
. «BREKURSIV 
. » BEKANNT 
en... WERKLAERT?+ 
"eo... @BDRUCK*+ 
“oe... @DRUCK#+ 


DNNBEBWWPRPUNNT-NUN-N-O 


?PONS 

@DRZEILE 15 LAPKTE JREKURSIV BEKANNT] 
@ERKLAERT? IS I) 

BEKANNT 15 L9ERKLAERT?) 

aPKTE 15 LaPKTE] 

aREKURSIV IS [L) 

RUFT 15 LaFKT?] 

W ISL) 

aFKT? IS [I 

DRUCK IS L9ERKLAERT? 3DRZEILE 3DRUCK 3DRUCK] 
aLTG 15 LPROGRAMMSTRUKTUR] 

DEF 15 [ARUFT WW) 

aFKTN 15 LaFKT?] 

SPROGS IS LADRZEILE JERKLAERT? 9BEKANNT aPKTE AREKURSIV RUF 
T A aFKT? 9DRUCK DEF aFKTN PROGRAMMSTRUKTUR] 
PROGRAMMSTRUKTUR 15 LaFKTN 9DEF aDRUCK] 


Es waren nur kleine Modifikationen notwendig. In @FKT? mußte die 
letzte Anweisungszeile herausgenommen werden. In der Druckroutine gab 
es eine Unverträglichkeit mit der Globalvariablen :@FKTN und der gleich- 
namigen Programmvariablen. Für die Selbstanalyse wurde das Druckpro- 
gramm bezüglich dieser Variablen mit der Variablen :@FF versehen. Um 
einmal die Ergebnisse von :@DEF zu zeigen, sind nachfolgend auch diese 
Variablen ausgedruckt worden. Um @DRUCK programmtechnisch zu 
untersuchen, sollte man sich einige Globalvariablen definieren und nur die 
Druckroutine testen. 
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TO aDRUCK :aFF :aPZAHL 

IF EMPTYP :@aFF [STOP] 

TEST JERKLAERT? FIRST :3aFF 

SDRZEILE FIRST :aFF :aPZAHL 

IFF LODRUCK THING FIRST :aFF 1 + :9PZAHL) 
DRUCK BF :aFF :3PZAHL 

END 


TO aFKT? :aW 

IF EMPTYP :W [OP [)) 

IF PRIMITIVEP :W [OP []] 

IF EQUALP FIRST :4 "9 [GP [1] 
END 


Um auch umfangreiche Programme zu testen, haben wir das Programm 
in drei Abschnitte zerlegt und auf der Diskette gespeichert. Leitprogramm 
ist die Datei PROGTREEI auf der Diskette. Das modifizierte Leitpro- 
gramm PROGRAMMSTRUKTUR lautet dann: 


TO PROGRAMMSTRUKTUR 

LOAD "PROGTREE2 

MAKE "3aPROGS 3FKTN „CONTENTS. 
ERPS "TREE2 

LOAD "PROGTREE3 

DEF THING "3PROGS 

ERPS "TREE3 

BURY "TREE 

ERPS 

LOAD "PROGTREE4 

PR [WIE LAUTET<N) DIE LEITFUNKTION<EN? ?] 
MAKE "aLTG RL 

3aDRUCK THING "aLTG 0 

END 


?CATALOG 
DISK VOLUME 254 


STARTUP.LOGO 
PROGTREE1.LOGO 
PROGTREE2.LOGO 
PROGTREE3.LOGO 
PROGTREE4.LOGO 
MASKE.LOGO 


444444 
UPPWUUN 
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Ablaufverfolger 


Ein Ablaufverfolger bietet uns eine Kontrollmöglichkeit über die Funk- 
tionsein- und -ausgaben (Parameter) von Benutzerfunktionen. Insbesonde- 
re im Kapitel über rekursive Funktionen wurden mit dem Ablaufverfolger 
Rekursionen dokumentiert. Solch eine Kontrollfunktion (TRACE-Funk- 
tion im englischen Sprachraum) wird dem Benutzer von vielen Betriebssy- 
stemen bereitgestellt. Logoversionen, die so einen Ablaufverfolger nicht als 
Standardfunktion anbieten, ergänzen wir dann eben selbst mit einer selbst- 
geschriebenen TRACE-Funktion. Dieser Abschnitt zeigt somit ein größe- 
res Programmbeispiel, wie Programme andere Programme manipulieren 
und neue Programme erzeugen. In Kapitel 19 sind die Grundlagen hierzu 
vorgestellt worden. 

Unser Ablaufverfolger soll zur Verdeutlichung noch einmal unsere altbe- 
kannte Rekursion SPIEGEL verfolgen. Sehen wir uns die Handhabung des 
Ablaufverfolgers an: 


?TRACE .EIN "SPIEGEL 
2 
?PR SPIEGEL "LISA 
EINGABEN VON SPIEGEL : LISA 
EINGABEN VON SPIEGEL : LIS 
EINGABEN VON SPIEGEL : LI 
EINGABEN VON SPIEGEL : L 
EINGABEN VON SPIEGEL : 
SPIEGEL LIEFERT MIT OUTPUT: 
SPIEGEL LIEFERT MIT OUTPUT: L 
SPIEGEL LIEFERT MIT OUTPUT: IL 
SPIEGEL LIEFERT MIT OUTPUT: SIL 
SPIEGEL LIEFERT MIT OUTPUT: ASIL 
ASIL 
? 


?TRACE..AUS "SPIEGEL 
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Bevor wir nun in die Programmdokumentation einsteigen, sollten wir uns 
mit der grundlegenden Programmidee beschäftigen. Sehen wir uns SPIE- 
GEL inhaltlich an: 


TO SPIEGEL :WORT 

IF EMPTYP :WORT [OP “ ] 

OP WORD LAST :WORT SPIEGEL BL :WORT 
END 


Da mit jedem Aufruf von SPIEGEL die Funktionseingaben gedruckt 
worden sind, könnten wir dieses elementar durch Umdefinieren der jeweili- 
gen Funktion realisieren. Vor der Endebedingung brauchten wir nur die 
entsprechende Druckanweisung vorzusehen. Die Verschachtelung der Zei- 
len kann über einen Zähler erfolgen, der in Verbindung mit einer Tabula- 
torfunktion jedesmal einige Leerzeichen mehr ausgibt. Bezüglich der Da- 
tenausgabe müßten wir nur eine neue OUTPUT-Funktion schreiben, die 
entsprechende Druckanweisungen enthält. Sehen wir uns ein entsprechend 
umgestaltetes Programm an: 


TO SPIEGEL :WORT 

MAKE "92 :92 + 2 TABULATOR 

< PRINT LEINGABEN VON SPIEGEL :] :WORT > 
IF EMPTYP :WORT [OP OP. "] 

OP OP. WORD LAST :WORT SPIEGEL BL :WORT 
END 


TO TABULATOR 
REPEAT :92 LTYPE CHAR 32] 
END 


TO OP. :93 

TABULATOR MAKE "932 :92 - 2 

< PR [SPIEGEL LIEFERT MIT OUTPUT:] :32 >) 
OP :23 

END 


Wir finden als erste Anweisungszeile eine Tabulatorfunktion vor. Die 
Globalvariable ”@Z wird jeweils um zwei vergrößert. Die zweite Anwei- 
sungszeile enthält die simple Druckanweisung zum Ausgeben der Parame- 
ter. Um die Ausgaben sichtbar zu machen, haben wir jeweils die Druckrou- 
tine OP. in den Anweisungszeilen mit OUTPUT dazwischengeschaltet. 

Das Erstellen eines modifizierten Programms und des jeweiligen Druck- 
programms OP. mit den aktuellen Namen von Programm und Variablenna- 
men erzeugt unser Programm TRACE.EIN. 

Sehen wir uns das Leitprogramm zeilenweise an: 
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TO TRACE.EIN :PROG 

<LOCAL "ALTDEF "NEUDEF) 

COPYDEF WORD ". :PROG :PROG 

MAKE "ALTDEF TEXT :PROG 

MAKE "NEUDEF <LIST FIRST :ALTDEF) 

MAKE "NEUDEF LPUT I[LMAKE "932 :932 + 2 TABULATOR]I 
:NEUDEF 

MAKE "32 2 

MAKE "NEUDEF LPUT «SE "< "PRINT PARAMETER :PROG 
FIRST :ALTDEF ")) :NEUDEF 

MAKE "NEUDEF SE :NEUDEF RESTZEILEN BF :ALTDEF 
DEFINE "OP. NEU.OP :PROG 

DEFINE :PROG :NEUDEF 

END 


Funktionseingabe für TRACE.EIN ist der jeweilige Funktionsname der 
zu untersuchenden Funktion. Mit COPYDEF wird das ursprüngliche Pro- 
gramm sichergestellt, indem diese Funktion unter dem gleichen Namen 
zuzüglich eines vorangestellten Punktes «doppelt» erzeugt wird. Später 
wird dieser Inhalt zum Inhalt unter dem ursprünglichen Funktionsnamen. 
Während des Ablaufverfolgens wollen wir ja den «echten» Funktionsnamen 
benutzen und den Inhalt verändern. Die Variable ”ALTDEF nimmt den 
Inhalt der ursprünglichen Funktion auf. In ”NEUDEF wird zeilenweise die 
manipulierte Funktion aufgebaut. Die alten Funktionsparameter werden 
gleichlautend für die neue Funktion übernommen. Die zweite Anweisungs- 
zeile mit der Tabulatorfunktion wird mit LPUT in :NEUDEF hinzugefügt. 
Die Globalvariable ”@Z wird hier auf einen Anfangswert gesetzt. 

Es wird sozusagen ein linker Rand von zwei Stellen Breite erzeugt. In der 
Folgezeile wird die eigentliche Druckanweisung zum Ausgeben der Funk- 
tionsparameter zu :NEUDEF hinzugefügt. Betrachten wir hierzu die Funk- 
tionen PARAMETER und EINGABEN: 


TO PARAMETER :NAME :LISTE 

MAKE "LISTE EINGABEN :LISTE 

MAKE "NAME <LIST <SE LEINGABEN VON] :NAME ":)) 
OP SE :NAME :LISTE 

END 


TO EINGABEN :LISTE 

IF EMPTYP :LISTE [OP [)]J 

OP SE WORD ": FIRST :LISTE EINGABEN BF :LISTE 
END 
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Anhand der einfachen Funktion ICH wollen wir uns die Ergebnisse der 
beiden Funktionen ansehen: 


TO ICH :A :B :C 
PRINT < SE [HALLO DA) :A :B :C ) 
END 


? 
?PR TEXT "ICH 
[A B CI [PRINT < SE [HALLO DA] :A :B :C )) 


? 
?SHOW TEXT "ICH 

ttA BC) LPRINT < SE [HALLO DA] :A :B ıC ))) 
? 

?SHOW PARAMETER "ICH FIRST TEXT "ICH 
LLEINGABEN VON ICH :] :A :B :C] 

? 


?SHOW EINGABEN IA B CI 


L:A :B :C) 
? 


Bis zu dieser Stelle würde das neue Programm ICH unter Benutzung des 
DEFINE-Befehls (vgl. letzte Anweisungszeile in TRACE.EIN) wie folgt 
aussehen: 


?TRACE .EIN "ICH 
? 


?PO "ICH 

TO ICH :A :B :C 

MAKE "32 :92 + 2 TABULATOR 

< PRINT LEINGABEN VON ICH :) :A :B :C ) 
PRINT < SE [HALLO DA] :A :B :C ) 

END 


Die drittletzte Anweisungszeile mit der Funktion RESTZEILEN unter- 
sucht den restlichen Inhalt von :ALTDEF und fügt nach jedem OUTPUT 
oder OP das Wort OP. ein. Die Druckroutine OP. wird durch die Funktion 
NEU.OP erzeugt und mit DEFINE dem Namen ”OP. zugewiesen. 


TO RESTZEILEN :LISTE 

IF EMPTYP :LISTE [OP [)) 

IF LISTP FIRST :LISTE E£EOP SE (LIST RESTZEILEN 
FIRST :LISTE> RESTZEILEN BF :LISTE) 

OP SE OP? FIRST :LISTE RESTZEILEN BF :LISTE 
END 
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TO OP? :WORT 

TEST OR << :WORT = "OP) <:WORT = "OUTPUT) 
IFT [OP [OP OP.)J] 

IFF LOP :WORT]I 

END 


TO NEU.OP :NAME 

LOCAL "REST 

MAKE "REST [[3)) 

MAKE "REST LPUT I[TABULATOR MAKE "32 :92 - 2] ıREST 
MAKE "REST LPUT «LIST "< "PR «SE :NAME [LIEFERT 
MIT OUTPUT:]) ":9 ")) :REST 

MAKE "REST LPUT [OP :3] :REST 

OP :REST 

END 


Die Funktion TRACE.AUS stellt den ursprünglichen Zustand wieder 
her und löscht die Funktion OP., die archivierte Altfunktion und die 
Globalvariable LZ: 


TO TRACE.AUS :PROG 

COPYDEF :PROG WORD ". :PROG 
ERASE WORD ". :PROG 

ERN "32 

ERASE "OP. 

END 


Testen wir nun an mehreren Beispielen unserer TRACE-Funktion. 
Nehmen wir die Übungsaufgabe 3 aus Kapitel 11 und verfolgen wir diese 
Rekursion, die kein OUTPUT verwendet: 


?TRACE..EIN "ANALYSE 
? 


?ANALYSE "LISA 
EINGABEN VON ANALYSE : LISA 
EINGABEN VON ANALYSE ı ISA 
EINGABEN VON ANALYSE : SA 
EINGABEN VON ANALYSE ı A 
EINGABEN VON ANALYSE : 
ANZAHL VON A ı 1 
ANZAHL VON I : 1 
ANZAHL VON L : 1 
ANZAHL VON S : 1 
? 


TRACE.AUS "ANALYSE 


Abschließend untersuchen wir einmal das Sortierprogramm SORT ge- 
mäß Aufgabe 11 in Kapitel 10. 
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?TRACE .EIN "SORT 
? 


?PR SORT LICH DU ER SIE ES WIR) 

EINGABEN VON SORT : ICH DU ER SIE ES WIR 
EINGABEN VON SORT : DU ER SIE ES WIR 
EINGABEN VON SORT : ER SIE ES WIR 

EINGABEN VON SORT : SIE ES WIR 
EINGABEN VON SORT : ES WIR 
EINGABEN VON SORT : WIR 
SORT LIEFERT MIT OUTPUT: WIR 
SORT LIEFERT MIT OUTPUT: ES WIR 
SORT LIEFERT MIT OUTPUT: ES SIE WIR 
SORT LIEFERT MIT OUTPUT: ER ES SIE WIR 
SORT LIEFERT MIT OUTPUT: DU ER ES SIE WIR 
SORT LIEFERT MIT OUTPUT: DU ER ES ICH SIE WIR 
DU ER ES ICH SIE WIR 
? 
?TRACE .AUS "SORT 


Wir hätten auch für EINFUEGE den Ablaufverfolger aktivieren können. 
Bei gleichen Eingabedaten können wir verfolgen, was EINFUEGE leistet. 
EINFUEGE hat ein Wort und eine Liste als Eingabe. Sehen wir einmal 
weiter unten die Arbeitsweise mit dem Wort ”ICH und der Liste [ER ES 
SIE WIR]: 


?TRACE .EIN "EINFUEGE 
? 
?PR SORT LICH DU ER SIE ES WIR) 
EINGABEN VON EINFUEGE : ES WIR 
EINFUEGE LIEFERT MIT OUTPUT: ES WIR 
EINGABEN VON EINFUEGE : SIE ES WIR 
EINGABEN VON EINFUEGE : SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: ES SIE WIR 
EINGABEN VON EINFUEGE : ER ES SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: ER ES SIE WIR 
EINGABEN VON EINFUEGE : DU ER ES SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: DU ER ES SIE WIR 
EINGABEN VON EINFUEGE : ICH DU ER ES SIE WIR 
EINGABEN VON EINFUEGE ı ICH ER ES SIE WIR 
EINGABEN VON EINFUEGE : ICH ES SIE WIR 
EINGABEN VON EINFUEGE : ICH SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: ICH SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: ES ICH SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: ER ES ICH SIE WIR 
EINFUEGE LIEFERT MIT OUTPUT: DU ER ES ICH SIE WIR 
DU ER ES ICH SIE WIR 
?TRACE .AUS *EINFUEGE 
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In gleicher Weise hätten wir auch W1.VOR.W2? mit der TRACE- 
Funktion verfolgen können. 

Wer die TRACE-Funktion für mehrere Funktionen gleichzeitig realisie- 
ren möchte, kann dies recht einfach erreichen. Die Globalvariable ”@Z 
und die Druckroutine OP. müßten mit einem Buchstabenzusatz jeder 
Funktion zugeordnet werden. Der Zusatz könnte entweder der volle Funk- 
tionsname, eine Zählnummer oder ein Kennbuchstabe sein. Mit diesen 
Modifikationen würden lange Ablaufprotokolle entstehen, die das Aufspü- 
ren von logischen Programmfehlern erleichtern können. 


Anhang 


Lösungen zu Kapitel 1 


Aufgabe I 


?PR [KATZE MAUS [] [ICH A B)) 
KATZE MAUS [L) LICH A B] 


Aufgabe 2 


?PR COUNT [KATZE MAUS [) LICH A B)) 


4 


Aufgabe 3 
?PR FIRST BF BF BF BF "COMPUTER 
[6] 


Aufgabe 4 


?PR "NENFNSENENININ N+NZNF 
*#<lL)) +/%* 


Aufgabe 5 


?PR SENTENCE LAST BL BL "OSTEREI 
R HASE 


Aufgabe 6 


?FR FIRSTESEL 

I DON’T KNOW HOW TO FIRSTESEL 
2 

?PR FIRST 

NOT ENOUGH INFUTS TO FIRST 

? 


?FIRST ESEL 
I DON’T KNOW HOW TO ESEL 


” 


?FIRST "ESEL 


EHASE)I 


312 Lösungen 


1 DON’T KNOW WHAT TO DOG WITH E 
? 

?FR FIRST "ESEL 

E 

Aufgabe 7 


?FR "ICH TYFE I[GEHE)I PR "SO TYPE [SOSO) 
ICH 

GEHESC 

5050? 

? 


Aufgabe 8 


?PR <COUNT [Li 2 33 £L] LICH DU))) * “COUNT [A BE 
2EH)) 9 


Aufgabe 9 


?FR WORD CHAR 9 "50N REFEAT 3 [FR “COUNT [Li 2 3) 
Et) LICH DU]I]1) #* <COUNT [LA B ZEH))]I 

7 

d 

9 


Lösungen 313 


Lösungen zu Kapitel 2 


Aufgabe 3 

?PO "RAHMEN 
TO RAHMEN 

P R L} 

PR "XXXXX 
PR "X x 
PR "X x 
PR "X x 
PR "X x 
PR "XXXXX 
END 

?RAHMEN 
XXXXX 

x x 

x x 

x x 

x x 

XXXXX 

Aufgabe 4 

?PO "OK 

TO OK 

P R " 

PR _* xX 
PR " xx 


Hinweis: Die Leerzeichen in den Anwei- 
sungszeilen müssen beim Edieren mit 
CTRL-Q eingegeben werden! 
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Lösungen zu Kapitel 3 


Aufgabe 2 


TO RAHMEN 

VOLLZEILE 

REFEAT 5 ILZWISCHENZEILE] 
VÖLLZEILE 

END 


TO VOLLZEILE 
PR [XXXXXAXXXAXX] 


END 

TO ZWISCHENZEILE 
TYPE "X 

REPEAT 8 [TYPE " ] 
PRINT "X 

END 

?RAHMEN 
KKAKKAKKAÄK 

x x 

x x 

x x 

x x 

x x 


KKKRKÄKKKKK 
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Lösungen zu Kapitel 4 


Aufgabe 1 

Das neue Programm ADRESSE soll deutlich machen mit seiner falschen Reihenfol- 
ge innerhalb der ausgedruckten Adresse, daß ausschließlich die Reihenfolge in den 
Anweisungszeilen die Druckausgabe bestimmt. Die Reihenfolge der Programmvaria- 
blen in der Kopfzeile hat hierauf keinen Einfluß. Werden natürlich Programmvaria- 
ble falsch bei der Eingabe mit Inhalten gefüllt, entstehen dann auch Abweichungen. 


TO ETIKETT :ZAHL :ORT :NAME :TEL :STR 
REPEAT :ZAHL [ADRESSE :NAME :0RT :TEL :STRI 
END 


TO ADRESSE :NAMEN :PLZ2.ORT :STRASSE :TELEFON 
PR :NAMEN 

PR :PLZ.ORT 

PR :STRASSE 

PR :TELEFON 

PR [] 


?ETIKETT 3 [DIEDELICHI [805% HEUSENSTAMMI [HAUFT 
STR.101 [04106/1234] 

4055 HEUSENSTAMM 

DIEDELICH 

HAUPTSTR.10 

41065 / 1234 


6054 HEUSENSTAMM 
DIEDELICH 
HAUPTSTR.10 

410% / 1234 


4056 HEUSENSTAMM 
DIEDELICH 
HAUPTSTR.10 

s10% / 1234 
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Aufgabe 2 


TO BRIEF :NAME :0RT :STR :DATUM :ANREDE :ANLASS 
PR EL] PR [LE] PR [] 

TYPE [WERBEAGENTUR 2000) 

<PR L[ ] :DATUM) 

PR LUMSATZGASSE 12) 

PR L&000 FRANKFURT] 

PR L] PR [] PR [] 

PR :NAME PR :STR PR :ORT 

PR L) PR [) PR L[) 

<£PR "SEHR WORD "GEEHRTE :ANREDE LAST :NAME) 
PR LE] PR [)] 

<PR [WIR ERLAUBEN UNS, SIE ZU UNSERER] :ANLASS 
LEINZULADEN.))D 

PR E]J PR E] PR E[] 

<PR L J "HOCHÄACHTUNGSVOLL? 
<PR L J LIHRE AGENTUR 200)) 


END 
Damit die Anrede richtig wird, muß jeweils bei der Eingabe entweder "FRAU oder 
”R HERR eingegeben werden. Diese Zeichenkette wird dann an das Wort "SEHR 


GEEHRTE angehängt. Zur Zeit haben wir keine elegantere Möglichkeit, um 
beispielsweise über ein einbuchstabiges Kennzeichen die Anrede zu steuern. 


?BRIEF [HANS MAIER]I [6054 RODGAUI [HAUPTSTR.10] 
"12.12.85 "RN HERR [PARTY 85] 


WERBEAGENTUR 2000 12.12.85 
UMSATZGASSE 12 
000 FRANKFURT 


HANS MAIER 
HAUPTSTR.10 
4054 RODGAU 


SEHR GEEHRTER HERR MAIER 


WIR ERLAUBEN UNS, SIE ZU UNSERER PARTY 85 EINZULADEN 


HOCHACHTUNGSVOLL 
IHRE AGENTUR 200 
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Aufgabe 3 

TO KIRCHE :K :M :F 

PR «WORD " :K) 

PR «WORD " ıK :ıK ıK) 
PR «WORD " :K) 


PR <WORD " ıM :M :M) 

PR <WORD :M :M :M :M :M)D 

PR $WORD :M :M :F :M :M> 

PR <WORD :M :F " ıF :M)> 

PR «WORD :M : ” ıF ısM :M :M :M ıM) 
PR <WORD :M :F :F :F :M :M :M :M :M) 
PR WORD :M :M :M :M :M :M :M :M :ıM) 
PR <WORD :M : 8 H 8 :M :M :M :M)> 


END 
?KIRCHE "* "X "+ ?KIRCHE "+ "X "# 
* + 
“RR +++ 
* + 
KAKX 
KRÄKX 
KXX+X 
Kt +X 


X+ +XAXXAXX 
K+++KXKXKXX 
KKAKKAKKX WERL, 
ICERKKAKKAK Ar Ar AR AE 
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Lösungen.zu Kapitel 5 


Aufgabe 1 


TO QUADRAT :SEITE 
FD :SEITE RT 90 
FD :SEITE RT 90 
FD :SEITE RT 90 
FD :SEITE RT 90 
END 


TO QUADRAT :SEITE 
REPEAT 4 LFD :SEITE RT 90] 


END 


Aufgabe 2 


TO DREIECK :SEITE 
FD :SEITE RT 120 
FD :SEITE RT 120 
FD :SEITE RT 120 
END 


Aufgabe 3 


TO ACHT :RADIUS 
CIRCLER :RADIUS 


CIRCLEL :RADIUS 
END 


Aufgabe 4 


TO TORTE :RADIUS :WINKEL 
FD :RADIUS 

RT 90 

ARCR :RADIUS :WINKEL 
HOME 

END 


Aufgabe 5 


TO GESICHT 

CLEARSCKEEN 

QUADRAT 100 

SETPOS [LO 80] CIRCLEL 15 

PU SETPOS [100 80] PD CIRCLER 15 
PU SETPOS [50 25] PD ACHT 10 

PU SETPOS [20 70] FD QUADRAT 10 
PU SETPOS L7?0 70] PD QUADRAT 10 
PU SETFOS L[L42 50] PD QUADRAT 16 
PU HOME PD 
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Aufgabe 6 


TO GEO 

SETPOS [-50 0] DREIECK 15 
SETPOS L[L-50 50] DREIECK 15 
SETPOS [SO 50] QUADRAT 15 
SETPOS [50 0] CIRCLER 20 
END 


Aufgabe 7 


119 


140 ... 139 


120 


Aufgabe 8 
?SETSCRUNCH 1 
?SETSCRUNCH 0 
?SETSCRUNCH 1 
?> 


2 CIRCLER 40 
.5 CIRCLER 40 
% CIRCLER 40 


?SETSCRUNCH 1.4 QUADRAT 40 
?SETSCRUNCH 0.8 QUADRAT 40 
?SETSCRUNCH 1.2 QUADRAT 40 
7? 

?SETSCRUNCH 0.8 DREIECK 40 
?SETSCRUNCH 1.4 DREIECK 60 
?SETSCRUNCH 1.2 DREIECK 40 


Aufgabe 9 


TO QUADRAT :SEITE :ZUWACHS 
FD :SEITE RT ?0 


QUADRAT :SEITE + :ZUWACHS :ZUWACHS 


END 


TO DREIECK :SEITE :ZUWACHS 
FD :SEITE RT 120 


DREIECK :SEITE + :ZUWACHS :ZUWACHS 


END 


Aufgabe 10 


TG DREHQUADBRAT :SEITE :GRAD 
REPEAT 4 [FD :SEITE RT 90] 
RT :GRAD 

BREHQUABRAT :5EITE :GRAD 
END 
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Lösungen zu Kapitel 7 


Aufgabe 1 


TO FLAECHE :LANG :BREIT 
OP :LANG * :BREIT 
END 


?PR FLAECHE 12.5 .67 
8.375 


Aufgabe 2 


TO DURCHSCHNITT :21 :22 
OUTPUT «:21 + :22) / 2. 
END 


?PR DURCHSCHNITT 11 5.6 
8.3 


Aufgabe 3 


TO TAUSCH :SATZ 
OP SENTENCE LAST :S5ATZ FIRST :SATZ 
END 


?FR TAUSCH LICH BIN] 
BIN ICH 


Aufgabe 4 


Ta STEIGERN :ADJEKTIV 
OUTPUT WORD :ADJEKTIV "ER 
END 


?FR STEIGERN "SCHOEN 
SCHOENER 


Aufgabe 5 


TO LETZTENDREI :LISTE 

OP «SE LAST LAST :LISTE LAST BL :LISTE LAST EL EL 
:LISTE? 

END 


?FR LETZTENDREI [AN DER SEITE] 
E RN 
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Aufgabe 6 


TC LOTTOZAHL 

OUTPUT 1 + RANDOM 48 
END 

?FR LOTTÜZAHL 

38 


Aufgabe 7 


TO SERZAHL 

OP «WORD RANDCOM 10 RANDOM 10 RANDOM 10 RANDOM 10 
RANDOM 10) 

END 


?PR SERZAÄHL 
16956 


Aufgabe 8 


TO POLYNOM2 :A :B 
OP <SUM :A * :x * 
END 


?.PRINTER 0 
? 


?PR FOLYNOM2 1.5 1.1 2 „5 
2.925 

?PR FOLYNOM2 1 0 03 

9 


Aufgabe 9 


TOrF 
OUTPUT "FRAU 
END 


TO H 
OUTPUT "R HERR 
END 


?BRIEF [MAIER] [4 FFM) [WEG 7) "12.12.82 
H EPARTY 85] 
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Lösungen zu Kapitel 8 


Aufgabe 1 


TO ZAHL .AM.ENDE? :LISTE 
OUTPUT NUMBERP LAST :LISTE 
END 


Aufgabe 2 


TO VOKAL .AM.ENDE? :LISTE 
QUTFUT MEHBERP LAST :LISTE [A EI 0 U] 
END 


Aufgabe 3 


TO KOPF.O.ZAHL? 
OUTPUT 0 = RANDOM 2 
END 


Aufgabe 4 


TO GERADE? :ZAHL 
OUTPUT 0 = REMAINDER :ZAHL 2 
END f 


Aufgabe 5 


TO UNGERADE? :ZAHL 
OUTPUT NOT GERADE? :ZAHL 
END 


Aufgabe 6 

TO 77?? :LISTE 

OP <AND WORDP FIRST :LISTE EMPTYP FIRST 
BF :LISTE 5 = COUNT LAST :LISTE 3 = COUN 
T #LISTE) 

END 


Aufgabe 7 


?FRINT AND "TRUE "TRUE 
TRUE 

?7PRINT AND "TRUE "FALSE 
FALSE 

?PRINT AND "FALSE "TRUE 
FALSE 

?PRINT AND "FALSE "FALSE 
FALSE 
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Lösungen zu Kapitel 9 


Aufgabe 1 


TO MAX :21 :22 
IF :21 > :22 [OP :21) 
END 


Aufgabe 2 

TO MAX4 :A :B :C : 
OP MAX MAX :A :B MAX 
END 

Aufgabe 3 


TO MAXNEU :21 :22 
TEST :21 > :22 
IFTRUE LOUTPUT :21] 
IFFALSE [OUTPUT :22) 
END 


Aufgabe 4 


TO MUENZEWERFEN 

TEST 0 = RANDOM 2 
IFTRUE LOUTPUT "KOPF) 
IFFALSE [OUTPUT "ZAHL 
END 


Aufgabe 5 
TO POSITIV? :ZAHL 


[OF :22) 


] 


IF :ZAHL > 0 [OP "TRUE)I [OP "FALSE)I 


END 


Aufgabe 6 


TO WERTETABELLE :A :B 
IF :X > :XENDE [STOP] 
x PRINT :X POLYNOM2 :A 
WERTETABELLE :A :B :C 
END 


?ZWERTETABELLE 1 00 1 


NO ND U BRUN 
nm 
u 


oO 100 


:C :X :XENDE :SCHRITT 


ıB :C ıX%> 
X + SCHRITT :XENDE :SCHRITT 
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Aufgabe 7 


TO DREH :GFÄäb :FAKTOR :WIEOFT 

IF :WIEOFT = 0 [STOP] 

TURMI 1 

RT :GRAD * :FAKTOR 

DREH :GRAD :FAKTOR + 1 :WIEOFT - 1 
END 


Aufgabe 8 


TO DREHFIGUR :DREHUNG :LAENGE :ANZAÄHL 
IF :ANZAHL = 0 [STOP] 

QUADRAT :LAENGE 

RT :DREHUNG 

DREHFIGUR :DREHUNG :LAENGE :ANZAHL - 1 
END 


TO QUADRAT :SEITE 
REPEAT 4 [FD :SEITE RT 90] 
END 


Die Funktion DREHFIGUR kann auch allgemeingültig für jede Figur formuliert 
werden, indem man den RUN-Befehl benutzt. Beim Aufruf muß für die Programm- 
variable :FIGUR in Form einer Liste die gewünschte Figur angegeben werden, die 
dann später durch RUN aufgerufen wird. 


TO DREHFIGUR :DREHUNG :ANZAHL :FIGUR 
IF :ANZAHL = 0 LSTOP)I 

RUN :FIGUR 

RT :DREHUNG 

DREHFIGUR :DREHUNG :ANZAHL - 1 :FIGUR 
END 
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Lösungen zu Kapitel 10 


Aufgabe 1 


TO LISTEINWORT :LISTE 

IF EMPTYP :LISTE [OP " ] 

OP WORD FIRST :LISTE LISTEINWORT BF :LISTE 
END 


?PR LISTEINWORT [A BC DE F ICH] 
ABCDEFICH 


Aufgabe 2 

TO NTES :0BJ :STELLE 

IF :STELLE = 1 [OUTPUT FIRST :0BJ] 
OUTPUT NTES BF :0BJ :STELLE - 1 
END 


Aufgabe 3 


TO RBUEND :WAS :LAENGE :2CHN 
OP WORD FUELLER :2CHN :LAENGE - COUNTW :WAS :WAS 
END 


?PRINT RBUEND "GESTERN Z0 "x 
RRRRRRRRHGRGESTERN 


Aufgabe 4 


TO VOKALKILLER :WORT 

IF EMPTYP :WORT [OUTPUT " ] 

OF WORD VOKALTAUSCH FIRST :WORT VOKALKILLER BF :WORT 
END 

TC VOKALTAUSCH :ZCHN 

IF MEMBERP :2ZCHN [A E I O0 UI [OP ".]1 LOP :2CHN]) 

END 


?PRINT VOKALKILLER "HALLIHALLOHIUHOAHE 


H.LL.H.LLCH. CH. ch, 


Aufgabe 5 


TO DUALZAHL :ZAHIL 

IF :ZAHL = O0 [OP " ] 

OP WORD DUALZÄAHL QUOTIENT :ZAHL 2 REMAINDER :ZAHL 2 
END 


?PRINT DUALZÄHL 5 
101 


?PFRINT DUALZAHL 15 
1111 


?PRINT DUALZAHL 1000 
1111101000 


326 Lösungen 


Aufgabe 6 


TO LBUEND :WAS :LÄAENGE :2ZCHN 
OP WORD :WAS FUELLER :2CHN :LAENGE - COUNTW :WAS 
END 


TO AUSWEIS :ORT :NAME :STR 
PR LXXXKXKXAKKKAÄKKKKRKAÄRKKKKKÄK I 


PR [X MITGLIEDSAUSWEIS x) 

PR [X x] 

PR [X K.C.T.H.S. x] 

PR IX x] 

PR <WORD "X  LBUEND :NAME 20 " "XI 
PR [X x] 

PR <WORD "X LBUEND :STR 20 " " x) 
PR [X x] 

PR <WORD "X LBUEND :ORT Z0 " m 269 
PR [X x] 

PR [X KOTZCLUBTHECODOR x) 

PR LXXXXXKKKAKKKKKAKKÄRKKKAÄKKK] 

END 


AUSWEIS "TEST "A "BEH 
KAHKXKKKAÄKKKRKAKKKKKKAKKKAKKK 
X  _MITGLIEDSAUSWEIS 
x 

x K.C.T.H.S. 
x 

x 

x 

x BEH 

x 

x TEST 

x 

x KOTZCLUBTHECDOR g 
KKKKARKKKAKKRKKAÄKKKAHÄKKKAK 


KKXXUXKKKKKX 


Aufgabe 7 


TO W1.VOR.W2? :W1 :W2 

IF EMPTYP :Wi1 [OP "TRUE] 

IF EMFTYP :WZ LOP "FALSE) 

IF FIRST :W1 = FIRST :W2 [OP W1.VOR.W2? BF :Wi BF 
:W2] OP ASCII FIRST :Wi < ASCII FIRST :WZ 

END 


?PRINT Wi .VOR.W2? "ALPHA "BET 

TRUE 

?PRINT W1.VOR.W2? "2 "X i 
FALSE 

?FRINT Wi .VOR.WZ? "ZEE "ZEH 

TRUE 


Lösungen 
Aufgabe 8 
TO KEINLEERES? :LISTE 
IF EMPTYP :LISTE [OP "TRUE) 
IF EMPTYP FIRST :LISTE [OP "FALSE]I 
BF :LISTE)I 
END 
Aufgabe 9 
TO WERTETABELLE :A :B :C :X :XENDE :SCHRITT 


IF :X > :XENDE [OP L[)) 
OP FPUT SE :X POLYNOMZ 
A :B :C :X + :SCHRITT 
END 


?PR WERTETABELLE 1 00 
[1 13 [1.2 1.44] [1.4 


Aufgabe 10 


TO AUSGABE :LISTE 

IF EMPTYP :LISTE [STOP] 
TYPE RBUEND FIRST FIRST 
PRINT RBUEND LAST FIRST 
AUSGABE BUTFIRST :LISTE 
END 


?AUSGABE [Li 1.003) 
1 1.003 

3.445 5 

2.22 5.6 


AUSGABE WERTETAÄBELLE 1 
1 


1 
.2 1.44 
.4 1.96 
.& 2.56 
8 3.24 


Aufgabe 11 


TO EINFUEGE :WORT :SATZ2 
IF EMPTYP :SATZ LOP SE 
TEST W1.VOR.W2? 
IFTRUE LOP SE :WORT 
IFFALSE [OP SE FIRST 
END 


?FRINT EINFUEGE 
WAS WIE WIR WO 

?FRINT EINFUEGE 
ABCDJIKLAZ 


ıÄ 
:XENDE 


1.96] 


ıB :C 


: SCHRITT 


1.8 .2 


[1.4 2.56] 


:LISTE 5 " 
sLISTE 10 " 


[3.445 5] [2.22 5.6)] 


001 1.8 


:WORT L[]] 

:WORT FIRST 

: SATZ] 
ı SATZ 


ı SATZ 


EINFUEGE :WORT BF 


"WIR [WAS WIE WO] 


"IJTABCDKLKX 2) 


?FRINT EINFUEGE "BB IA AAAa B BBB] 


rk AAAB BB EBB 


321 


[OP KEINLEERES? 


:X WERTETABELLE 


[1.8 3.24] 


ı SATZ) 
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Aufgabe 12 


TO SATZ5SORT :SATZ 

IF EMPTYP BF :SATZ LOUTPUT :SATZ] 

OUTPUT EINFUEGE FIRST :SATZ SATZSORT BF :SAT 
END 


?FR SATZSORT [IA FG TUAETCAB MW 2)I 


AAABCEFGTUNZ 


?FR SATZSORT [AFGTUAECABU 2)I 
AAABCEFGTUUWZ 

?FR SATZSORT LICH GEHE HEUTE AuS) 

AUS GEHE HEUTE ICH 
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Lösungen zu Kapitel 11 


Aufgabe 1 


TO LISTEINWORT :LISTE 

MAKE "WORT " 

LABEL "SCHLEIFE 

IF EMPTYP :LISTE [OP :WORT] 

MAKE "WORT WORD :WORT FIRST :LISTE 
MAKE "LISTE BF :LISTE 

GO "SCHLEIFE 

END 


TO NTES :0OBJ :STELLE 

LABEL "ANFANG 

IF :STELLE = 1 [OP FIRST :O0BJ] 
MAKE "OBJ BF :0BJ 

MAKE "STELLE :STELLE - 1 

GO "ANFANG 

END 


TO VOKALKILLER :WORT 

MAKE "ERGEBNIS " 

LABEL "BEGINN 

IF EMPTYP :WORT [OP :ERGEBNIS] 

MAKE "ERGEBNIS WORD :ERGEBNIS VOKALTAUSCH FIRST 
:WORT 

MAKE "WORT BF :WORT 

GO "BEGINN 

END 


TO DUALZAHL :ZAHL 

MAKE "BINAER " 

LABEL "START 

IF :ZAHL = 0 [OP :BINAER]I 

MAKE "BINAER WORD REMAINDER :ZAHL 2 :BINAER 
MAKE "ZAHL QUOTIENT :ZAHL 2 

GO "START 

END 
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Aufgabe 2 


TO SCHALTER :ZAHL 
GO ITEM :ZAHL [PROG1 PROG2 PROG3 PROG4] 
LABEL "PROGI 
PROG1 

STOP 

LABEL "PROG2 
PROG2 

STOP 

LABEL "PROG3 
PROG3 

sTor 

LABEL "PROG4 


PROG4 
END 


TO PROG2 
PR [HIER 1ST PROG2] 
END 


?SCHALTER 2 
HIER IST PROG2 


Aufgabe 3 

Das Programm ANALYSE benutzt das Prüfwort NAMEP. NAMEP hat ein Wort als 
Eingabe. Falls eine Variable unter diesem Namen definiert worden ist, liefert 
NAMEP “TRUE, andernfalls "FALSE. 

ANALYSE arbeitet die Zeichenkette zeichenweise ab. Beim ersten Auftauchen 
eines noch nicht vorgekommenen Buchstabens wird unter dem Namen des Buchsta- 
bens eine Variable mit dem Inhalt 1 definiert. Bei wiederholtem Vorkommen eines 
Buchstabens wird jedesmal der Inhalt des entsprechenden Speichers um eins erhöht. 
AUSGABE geht alphabetisch vor und druckt mittels BUCHSTABE den Variablen- 
namen und seinen Inhalt aus, sofern diese Variable überhaupt vereinbart worden ist. 
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3a 


TO ANALYSE :STRING 

IF EMPTYP :STRING [AUSGABE STOP) 

TEST NAMEP FIRST :STRING 

IFT [MAKE FIRST :STRING SUM THING FIRST :STRING 1] 
IFF EMAKE FIRST :STRING 1] 

ANALYSE BUTFIRST :STRING 

END 


TO AUSGABE 

LOCAL "DEZ 

MAKE "DEZ 32 

REPEAT <ASCI11 "23 - 31 LBUCHSTABE CHAR :DEZ MAKE 
"DEZ :DEZ +1] 

END 


TO BUCHSTABE :ZCHN 
IF NOT NAMEP :2CHN L[LSTOP)I 


<PR LÄNZAHL VON] :ZCHN WORD ": CHAR 32 THING :2CHND 
ERN :ZCHN 
END 


?ANALYSE "GESTERN\ GINGN ICHN INS\ KINO 
ANZAHL VON : 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 
ANZAHL VON 


4u2oZr-Iomn 
“Ne ,mpDp DB. 0Nn- DB 


ANALYSE läßt sich einfach modifizieren, um Zeichenketten nur auf bestimmte 
vorgegebene Zeichen zu untersuchen. 
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3b 


TO ANALYSE2 :STRING :ZCHN 

IF EMPTYP :STRING [AUSGABE STOP] 

TEST NAMEP FIRST :STRING 

IFT [MAKE FIRST :STRING SUM THING FIRST :STRING 1) 
IFF CIF GESUCHT? IMAKE FIRST :STRING 1)) 

ANALYSE2 BUTFIRST :STRING :ZCHN 

END 


TO GESUCHT? 
OP MEMBERP FIRST :STRING :ZCHN 
END 


?ANALYSE2 "GESTERNN\ GINGN ICH \ INS\N KINO [I O0 2) 
1 DON’T KNOW HOW TO INS KINO 


?ANALYSE2 "GESTERN\N GINGN ICHN INS\ KINO [1 0 2) 
ANZAHL VON I : 4 
ANZAHL VON O0 : 1 


Anhang 
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Verzeichnis der Benutzerfunktionen 


11.BIS.19 206 
3ELEMENTIG 98 
3WEG 74 
SERLISTE? 92 
SERZAHL 88, 321 
65BIS74 81 

7777 322 
@BEKANNT? 301 
@DEF 298 
@DRUCK 300, 303 
@DRZEILE 300 
@ERKLAERT? 301 
@FKT? 298, 300, 303 
@FKTN 298 
@PKTE 300 
@REKURSIV 301 
@RUFT 298 

@W 298 


A 175 
A.Z.ODER.1? 94 
ABI 252 
ABFRAGE 293 
ACHT 318 
ADRESSE 30, 41, 
45, 315 
ADVERB 85 
ADVERBLISTE 85 
ALLEGLEICH? 94 
ANALYSE 331 
ANALYSE2 332 
ANZ.NACHF 189 
ANZ.VORG 1% 


ASCIHZCHN 244 
AUFDISK 177 
AUFDISK1 177 
AUS 170 
AUSGABE 236, 294, 
327, 331 
AUSGABE2 237 
AUSGABEV 286, 287 
AUSGANGS- 
PUNKT 63 
AUSTAUSCH 291 
AUSWAHL _ 170, 171 
AUSWEIS 326 


B 175 

BEDIENER 225 
BEFEHLE 168, 201 
BEGINN 152, 266 
BEGRUESSUNG 43 
BELL 227 
BILDGRENZEN 257 
BILDKARUSSEL 41 
BILDPUNKT 258 
BIS 163 

BLINKEN 149, 154, 
158, 227, 244 
BLOCKNR 238 
BLUBBERN 155 
BOMBARDIEREN 
223 

BRIEF 316 

BS 244 a 
BUBBLE.SORT 291 


BUCHSTABE 331 
BZCHNG 242 


C 148, 175, 243 
C10 218 

C1l 218 

C21 218 

Cc8 218 

c95 219 

CASE 166, 167, 169, 
244 

CASEI 176 
CLAUDI 196 
CODEI 173 
CODE2 173 
COMPUTER 225 
COMPUTERSIEG 227 
COUNTW _ 121, 215 


D 175 

DANEBEN 226 

DATEIVERARBEI- 
TUNG 229 

DATENCHECK 99, 
101 

DE 243 

DE.SATZ 234, 243, 246 
DE.WORT 234, 243, 
245 

DECODER 212, 214 
DEFV 275 

DEFV1 277 
DEIN.NAME 223 
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DEMO1 137 
DEMO2 138 
DEMO3 138 
DEMO4 139 
DIALOG 151 
DIMENSIONIEREN 

284 
DIMV 275 
DO 16 
DOTPOS 252 
DOTS 216, 218 
DR 199 
DR.DRITTES 73 
DREH 66, 324 
DREHFIGUR 324 
DREHQUA- 

DRAT 319 
DREIECK 318 
DREIERWURF 80 
DREISTELLIG 207 
DREIZCHN 77 
DRITTES 74 
DRUCK 198 
DRUCK.Y.WERT 

257, 267 
DRUCKE_ 161 
DRUCKEN 213, 214, 

249, 257, 267 
DRUCKER.EIN 259 
DRUCKV 276 
DRUCKZEILE 286 
DRZEILE 249 
DUALZAHL 211, 214, 

325, 329 
DURCHSCHNITT 87, 

320 


E 175 

EIN.UND 206 
EINFUEGE 327 
EINGABEN 306 
EINSETZEN 276 
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EINSETZENL 278 
EINSTELLIG 206 
EINVOKAL? 97, 100 
ELMTWEG 227 
ENDE 170 

ENDE? 235, 246 
ERF 178, 179 
ERFASSEN 234 
ERGEBNIS 225 
ERKLAERUNG 223 
ERSTES 198 
ETIKETT 315 
ETIKETTEN 40 


F 252, 321 
FALL 170, 171, 205 
FEHLER 169, 170, 
179, 244, 275 
FELDAUFBAU _ 223 
FELDC 28 
FELDER 242 
FINGER 33 
FLAECHE 87, 320 
FLAMINGO 216 
FOR 164, 276 
FOR1 164 
FUELLER_ 120, 215 
FUELLV 276 


GEDICHT 38 
GEGNER 227 
GEO 319 
GERADE? 322 
GESICHT 318 
GESUCHT? 332 
GETROFFEN? 226 
GRS5? 91 

GRAPH 256, 266 
GRAPHIK 168 
GRAPHIKI1 176 
GRATULIERE 225, 
227 


GREATER 29 
GROBU _ 214 
GRUESSEN 100, 101 


H 321 

HALT 200 
HINWEIS 148, 246 
HORNER 257 
HUNDERTER 207 


ICH 307 
IGNORIERE_ 155 
INLISTE 77 
INVERS 149 
ITASTE 167 


JTASTE 167 


KEINLEERES? 327 
KETTEN 244 
KIRCHE 33, 47, 60, 
317 

KIRCHEI 6 
KLEBEN 76 
KLEINSTES.NACH- 
‚VORNE 291 
KOORDINATEN 226 
KOPF.O.ZAHL? 322 
KTASTE 167 
KURZ 174 


LAENGE 205 
LAENGER? 9 
LANG 174 
LBUEND 326 
LEERP 199 
LEITPRO- 
GRAMM 179 
LETZTENDREI 87, 
320 
LETZTES 201 
LG 205 


LIEFERE 199 
LINKSDREHEN 169 
LISA 196 

LISTE? 278 
LISTEINWORT 325, 
329 

LISTEN 242 
LOESCH.ZCHN 244 
LOESCHEN_ 148, 155, 
168, 218, 246 
LOGOKURS 170, 171 
LOTTOZAHL_ 87, 321 
LOTTOZAHLEN 128 
LV 275 

LV1 277 

LZ 155, 235 


MACH.LISTE 243 
MACHE 16 
MASKE_ 242 
MATADD 280 
MATMULT 283 
MATMULTZ 281 
MATRIXFUELLEN 
285 

MATTRANS 283 
MAX 323 
MAX.WORT 284 
MAX4 323 
MAXNEU_ 323 
MEMBER _ 166, 166, 
170, 244 
MEMBERPW 121 
MENU 170 
MENUDRUCKEN 170 
MINIZEUGNIS 107 
MINMAX 257 
MORSEN 173 
MOSEL _ 195 
MUENZEWERFEN 
323 
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MUSTER 216 


N.TES.ELEMENT 79 
NACHF 188, 189 
NEGATIV? 92 
NEU.OP 308 
NICHTANFASSEN 
154 
NMAL.DRUCKEN 
105 

NMAL.PROG 105 
NOTAUSGANG 179 
NOTENSKALA 107 
NTER.NACHF 189 
NTER.VORG 19 
NTES 104, 107, 
325, 329 
NVORAN? 93 
NWEG 104, 120, 131 
NWEGI 131 


OE 19 
OEFFNENDATEI 232 
OHNEERSTES 199 
OK 313 

OP. 305 
OPERATIONEN 200 
ORTSBESTIMMUNG 
85 

ORTSLISTE 85 


PARAMETER 306 
PFDM 76 
PLAYBOY 33 
POLYNOM2 88, 321 
POS.GEGNER 223 
POSITIV? 323 
PRAEDIKAT 85 
PRAEDIKATLISTE 
85 

PROGRAMMI 98 
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PROGRAMM2 98 
PROGRAMM3 98 
PROGRAMMSTRUK- 
TUR 146, 298 
PUFFERINHALT 153 
PYRAMIDE 34 


Q 224 

QUADRAT 34, 76 
318, 319 

QUERSUMME 105, 
119, 131, 137 

QUERTEXT 287 

QUICKSORT 292, 294 


RADIEREN 168 
RAHMEN 314 
RBUEND 214, 325 
RECHTSDREHEN 
169 

REMPROPL 143 
RESTZEICHEN 307 
RICHTIGETASTE? 
152 

ROMAN 83, 84 
RUECKSCHRITT 149 
RUECKWAERTS 168 
RZEILE 249 


SATZ 158 
SATZBILDEN 233 
SATZLESEN 232 
SATZSCHREIBEN 
233 
SATZSORT 328 
SAUBERER.SCHIRM 
158 
SCHALTER 330 
SCHIFF 61 
SCHIFFI 62 
SCHIMPFEN 154 
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SCHIRMLOESCHEN 
38 
SCHLACHTFELD 223 
SCHLEIFE 126, 203 
SCHLIESSENDATEI? 
235 

SCHRAEG 288 
SCHREIBEN 217 
SCHREIBEN? 220 
SOLANGE 161 
SPALTE 275 
SPAZIERGANG 58 
SPIEGEL 112, 130, 305 
SPIEGELN 103 
SPIEGELS 119 
SPIELER 227 
START 183, 216, 266 
STEIGERN 87, 320 
STRICH 148, 243 
STRICHINRICHTUNG 
220 

SUBJEKT 83 
SUBJEKTLISTE 84 
SUCH.NACHF 190 
SV 276 

SViı 27 
SYNTAXCHECKER 
178 


TAB 108, 170, 235, 
252, 258 

TAB2 249 
TABULATOR _ 305 
TANNE 33 
TAUFE 195, 196 
TAUSCH 87, 320 
TESTEN 153 
TORTE 318 
TRACE.AUS 308 
TRACE.EIN 306 
TREFFER 226 
TURM 61 
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TURMI & 
TXT.BLINKEN 149, 
227 
TXT.INVERS 149 


UMR 226 
UMSETZEN 174 
UMSTELLEN 293 
UMTAUFEN 202 
UNGERADE? 322 
UNTER 102, 193, 194, 
210, 211 
UNTEREINANDER 
200, 202 


VERARBEITEN 179, 
236, 246 
VERS 28, 46, 193 
VERS3 39 
VERZWEIGUNG 98 
VIERFACH 75 
VOKAL.AM.ENDE? 
322 
VOKALKILLER 
325, 329 
VOKALTAUSCH 325 
VOLLZEILE 314 
VON.DISK.HOLEN 
171 
VORAN? 93 
VORG 1% 
VORWAERTS 168 


W1.VOR.W2? 292, 326 
WAEHLE 201 
WANDLE 211, 214 
WARTEN 158 
WECKEN 153 
WENN 199 
WERTETABELLE 

323, 327 
WERTV 276 


WERTZUWEISEN 
232 
WHILE 161 
WIEDERHOLE _ 105, 
162, 199 
WORT.IN.SPALTE 
285 
WORT.IN.SPALTEI 
288 
WORTINLISTE 121, 
215 
WUERFEL 80 


X 267 
xXW 224 


YWw 224 
YWERTE 257, 265 


Z 218, 244 
ZAHL.AM.ENDE? 
322 
ZAHL.WORT 205 
ZAHLENPAAR. 258 
ZAUSG 244 
ZCHN 81 
ZEHNER 206 
ZEILE 212, 214, 218 
ZERLEGEN 293, 294 
ZEUGNIS 107, 108 
ZUFALL 84, 224 
ZUFALLSSATZ 83 
ZUFALLSWORT 81 
ZULAESSIG? 174 
ZURUECK _ 168 
ZUSAMMEN 76 
ZWEISTELLIG 206 
ZWEIZCHN 75 
ZWISCHENZEILE 
314 
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Logo im Überblick 


Für den informatisch interessierten und/oder vorbelasteten Leser wird 
nachfolgend eine Beschreibung der Eigenschaften und Besonderheiten von 
Logo geboten. Dieser Abriß bietet im Zusammenhang mit den Zusammen- 
fassungen der ersten 11 Kapitel in kompakter Form eine Logogrammatik. 

Logo ist ein Abkömmling der Sprache Lisp (List Processing Language). 
Somit gelten die Logoeigenschaften in gleicher Weise für Lisp oder anders 
formuliert, der Logo-Freund wird leichter Lisp erlernen können. Logo ist 
eine interaktive und funktionsorientierte (prozedurale) Sprache, die das 
Baukastenprinzip (Modularität) maximal unterstützt. Logo ist ein interpre- 
tierendes System. Alle Systemkomponenten (Interpreter, Editor, Arbeits- 
speicher- und Dateiverwaltung, Fehlerbehandlung) und «Befehle» sind im 
Arbeitsspeicher geladen. Im Englischen lautet der Oberbegriff für alle 
«Befehle» primitives. Primitives unterteilen sich in Kommandos (Befehl) 
und Operationen. Typische Logokommandos sind PRINT, MAKE, 
REPEAT und die meisten Grafikbefehle (FD, RT, BK usw.). Operationen 
liefern Werte ab, das heißt, sie können zur Eingabe eines Funktionspara- 
meters werden. Beispiele für Operationen wären die Funktionen FIRST, 
BUTFIRST, NUMBERP usw. Praktisch alle Primitives können im Direkt- 
modus und innerhalb von Programmen verwendet werden. Ein Programm 
ist eine Sammlung von Funktionen, die unter einem Programmnamen 
angesprochen werden. Der Autor benutzt im Deutschen statt des Begriffs 
primitive das Wort Logovokabel oder Systemfunktion. Der Benutzer kann 
bequem den Sprachumfang seines Systems mit benutzerdefinierten Funk- 
tionen (Kommandos und Operationen) erweitern. Benutzerdefinierte Ope- 
rationen enthalten immer die Logofunktion OUTPUT. In Anlehnung an 
den obigen Begriff prozedural findet man auch den Terminus Prozedur statt 
Funktion. Man könnte auch den Begriff Routine für Prozedur oder Funk- 
tion einführen. 

Logo ist datentypunabhängig. Es müssen nicht, wie beispielsweise in 
Pascal, in einem ersten Programmteil die Datentypen für die verwendeten 
Variablen und Parameter deklariert werden. Logoobjekte (Datentypen) 
sind das Wort und die Liste. Ein Wort ist somit eine ganze Zahl (integer), 
eine Dezimalzahl (real), ein Zeichen (character), eine Zeichenkette (string) 
und ebenso die logischen Prädikate ("TRUE oder ”FALSE). Jedes Wort 
muß mit einem Anführungsstrich beginnen und kann aus einem oder 
mehreren Zeichen bestehen, auch aus Trennzeichen, wobei die Trenner- 
eigenschaft für jedes Zeichen mit CTRL-Q aufgehoben werden muß. Der 
Sonderfall eines Wortes ist das Wort ohne Zeichen, das leere Wort, das nur 
aus den Anführungsstrichen besteht. Die Zahlen gehören zu den Wörtern 
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und können ausnahmsweise ohne Anführungsstriche verwendet werden. 
Eine Liste ist eine geordnete Menge von Listenelementen, wobei jedes 
Element ein Wort oder wiederum eine Liste sein kann. Eine Liste ist alles, 
was zwischen zwei eckigen Klammern steht. Die Elemente einer Liste 
können Wörter oder andere Listen innerhalb der Liste sein. Der Sonderfall 
einer Liste ist die leere Liste. Innerhalb von Listen werden Wörter ohne 
Anführungsstriche aufgeführt. Beim Ausdrucken von Wörtern und Listen 
werden die äußeren eckigen Klammern und die Anführungsstriche nicht 
mitgedruckt. Mit Listen lassen sich sehr schnell beliebige Datentypen 
darstellen und definieren (Baumstrukturen, Zeigertypen, Eigenschafts- 
listen, Vektoren ... .). Logoprogramme sind als Listen organisiert, so daß 
jedes Logoprogramm selbst als Datentyp Liste angesprochen und in beliebi- 
ger Weise verarbeitet werden kann. Man kann also schnell Programmgene- 
ratoren erstellen oder bestehende Programme umdefinieren. 

Programme in Logo werden definiert, indem die Kommandos TO und 
EDIT benutzt werden. Solche selbstdefinierten Bausteine bestehen aus 
Systemfunktionen und/oder Benutzerfunktionen. Der Benutzer kann seine 
Bausteine zu größeren Einheiten zusammensetzen. Programme werden mit 
ihren Programmnamen aufgerufen, entweder durch direktes Eintippen im 
Direktmodus oder Aufruf aus einem anderen Programm heraus. Pro- 
grammnamen sind Wörter, die ohne Anführungsstriche aufgerufen werden. 
Alle Funktionen können Eingaben (Parameter) haben, nämlich Wörter 
oder Listen (Logoobjekte). Bei der Programmdefinition werden alle Para- 
meter neben dem Namen in der Kopfzeile angeführt. Die Parameter 
beginnen mit einem Doppelpunkt, unmittelbar gefolgt von einem Wort. 
Beim Programmaufruf müssen nach dem Programmnamen alle Parameter 
durch einen aktuellen Wert (Logoobjekt) befriedigt werden. 

Die Funktionen des Systems und des Benutzers stehen gleichberechtigt 
nebeneinander und unterscheiden sich nicht in ihrem Verhalten und den 
Fehlermeldungen (Fehler infolge falscher oder nicht befriedigter Parame- 
ter, fehlerhafte Eingabe des Funktionsnamens). Der Interpreter verlangt 
einen bestimmten Aufbau der Anweisungszeilen. In einer Logoanweisung 
müssen alle Operanden, Logoobjekte, System- und Benutzerdefinitionen 
strikt gegeneinander durch ein Trennzeichen (delimiter) abgegrenzt sein. 
Dieses Trennzeichen ist in aller Regel das Leerzeichen. Für den Anfänger, 
der häufig von BASIC her kommt, ist dieses eine der häufigsten und 
irritierenden Fehlerquellen, da er gewohnt ist, ohne Leerzeichen BASIC- 
Statements einzutippen. BASIC-Befehle sind reservierte Wörter, die vom 
Interpreter innerhalb von Zeichenketten erkannt werden. (Somit führen 
Variablennamen, die als Teilstring einen Befehl darstellen - z. B. DIFFE- 
RENZ - zu unerfreulichen Programmfehlern.) Eine vollständige Anwei- 
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sungszeile beginnt in Logo mit einem Kommando (PRINT, REPEAT, FD, 
BK,...) und seinen Eingaben (Wörter, Listen, Operationen). Da Opera- 
tionen — selbstdefinierte oder Logooperationen — mit ihren Eingaben die 
Parameter anderer Funktionen mit Werten beliefern, können Logozeilen 
recht komplex werden. Doch in dieser Verkettung von Operationen liegt 
eine der Stärken von Logo. Das Ende einer Anweisungszeile wird mit dem 
ASCIHH-Zeichen 13 (Return-Taste) markiert. 

Trennereigenschaft haben neben dem Leerzeichen noch andere Sonder- 
zeichen. Hierzu gehören die Rechenoperatoren (+, —, *, /), die Ver- 
gleichsoperatoren (<, >, =) die eckigen und runden Klammern. Sollen die 
hier genannten Zeichen als Normalzeichen Teil eines Wortes sein, so muß 
jedesmal die Trennereigenschaft durch eine Markierung aufgehoben wer- 
den. Die Aufhebung der Trennereigenschaft geschieht durch ein vorange- 
stelltes «\» (backlash). 

Der Schrägstrich hebt die Trennereigenschaft aber nur für ein Zeichen 
jeweils auf! Beim Apple wird dieses Zeichen mit CTRL-OQ erzeugt. Beim 
Drucken dieser mit CTRL-Q gekennzeichneten Sonderzeichen wird der 
Schrägstrich nicht mit ausgegeben. Gleiches gilt für Programmlistings. Nur 
beim Benutzen des Editors werden sie abgebildet. 

Die bereits angeführte Modularität (Baukastenprinzip) ist eine hervorste- 
chende Eigenschaft von Logo. Da alle Funktionen im Arbeitsspeicher 
unabhängig voneinander stehen, kann jede einzelne Funktion separat auf 
Diskette gespeichert oder von der Diskette geladen werden. Somit läßt sich 
eine nützliche Programmbibliothek aufbauen. Die Unterprogrammtechnikin 
BASIC hat damit keine Verwandtschaft. Jede Benutzerfunktion als kleines 
eigenständiges Programm läßt sich somit isoliert austesten. In einem Pro- 
gramm können beliebige andere Funktionen aufgerufen werden. Somit 
lassen sich Einzelbausteine zu leistungsfähigen Superbausteinen zusammen- 
fügen. Die angeführte Modularität bedeutet, daß nach Belieben nach dem 
Top-Down- und/oder Bottom-Up-Prinzip verfahren werden kann. Große 
Programme lassen sich einfach segmentieren. 

Logo beschränkt sich nicht nur auf Turtlegrafik, sondern ist universal. 
Diese Universalität verdankt Logo seiner Erweiterbarkeit, die sich nicht nur 
auf das Formulieren eigener Programme beschränkt, sondern auch die 
Definition eigener Kontrollstrukturen gestattet. Wer Kontrollstrukturen 
anderer Sprachen schätzt, kann diese in Logo formulieren und gewinnbrin- 
gend in seinen Routinen einsetzen. 

Die Fehlerbehandlung in Logo ist benutzerfreundlicher als in BASIC, da 
hier sehr viel umfangreichere Fehlerhinweise erfolgen, indem die Routine 
und die entsprechende Zeile mit dem Fehler angeführt wird. Logo erlaubt 
die Definition von Fehlerausgängen und das Rückverzweigen in bestimmte 
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Programmteile durch einen Catch-Throw-Mechanismus. In der Testphase 
können Programme an im Programm definierten Stellen angehalten wer- 
den. Variable können inspiziert werden, neue Werte zugewiesen und sogar 
Benutzerfunktionen editiert werden. Anschließend kann das Programm 
weiterlaufen. Auch per Tastatur kann das Programm angehalten werden. 
Ebenso lassen sich Ablaufverfolger definieren. Das schrittweise Ausführen 
ist ebenso möglich (vgl. die Step-Utility im Apple-Manual). 

Da Logo eine funktionsorientierte (prozedurale) Sprache ist, muß konse- 
quent das Prinzip der Global- und Lokalvariablen gelten. Jede Benutzer- 
funktion ist nach ihrer Erstellung ein selbständiger Baustein, die wegge- 
speichert, ausgetestet oder von anderen Programmen aus aufgerufen, 
gelöscht oder in ihrer Struktur manipuliert oder neu generiert werden 
kann. Bezüglich der Parameterübergabe gibt es keine Einschränkungen. 
Übergeben werden Wörter oder Listen. Bei den Variablen unterscheidet 
Logo syntaktisch den Namen und den Wert einer Variablen. Wertzuweisun- 
gen werden mit MAKE definiert. Der Inhalt einer Wertzuweisung wird 
durch vor den Variablennamen gesetzte Doppelpunkte abgerufen (sie 
ersetzen die Anführungsstriche). Programmparameter sind innerhalb der 
Funktion und in den vor hier aus aufgerufenen weiteren Funktionen lokale 
Variable. Innerhalb der Funktion können Programmparameter ebenso mit 
MAKE umdefiniert werden. 

In Logo können sich Benutzerfunktionen selber aufrufen (Rekursionen). 
Da viele Datentypen rekursiv sind (Zeichenkette, Liste), lassen sich Verar- 
beitungsfälle elegant rekursiv formulieren. Bei großen Programmen ist es 
oft sinnvoller, Schleifenprozesse iterativ zu formulieren, da bei jedem 
Rekursionsaufruf ein immer größerer Stapel (Rekursionsstack) aufgebaut 
wird, um die vielen lokalen Werte temporär festzuhalten, wodurch der freie 
Speicher verkleinert wird. Wenn also eine sehr große Rekursionstiefe 
erreicht wird, kann sehr schnell die Fehlermeldung out of space (kein 
Speicher mehr) kommen. Das ist nicht ein spezielles Logoproblem, sondern 
gilt bei allen rekursiven Systemen. Die Stackproblematik gilt eigentlich nur 
für die Generation der 8-Bit-Rechner und nicht mehr für die neuen Rech- 
ner mit 256 KB Standardspeicher oder mehr. 

Wer nach einer gewissen Zeit mit Logo vertraut geworden ist, kommt 
zwangsläufig zum funktionsorientierten Programmieren. Es ist gekenn- 
zeichnet durch ein Verketten von Benutzerfunktionen. Die Verwendung 
von Globalvariablen wird dabei nur auf Sonderfälle beschränkt, so daß 
dadurch Seiteneffekte vermieden werden. Unter Seiteneffekten versteht 
man die Tatsache, daß Globalvariable unbemerkt Wertveränderungen mit 
unerwarteten Programmeffekten erfahren (man denke an komplexe 
BASIC-Programme, bei denen alle Variablen global sind und man häufig 
die Übersicht und damit die Programmkontrolle verlieren kann). 
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Verzeichnis der Logofunktionen 


In dieser Übersicht werden die Logofunktionen und Spezialwörter von 
Apple Logo I der Firma Logo Computer Systems Inc. (LCSI) vorgestellt. 
Das hier vorgestellte LCSI-Logo für den Apple IV/IIe findet sich im Kern in 
den LCSI-Versionen für Atari 600 XL, 800 XL, 130 XE, IBM und andere 
kompatible MS-DOS-Rechner und Apples Macintosh. Andere Logoversio- 
nen werden im Folgeabschnitt diesen Logo-Vokabeln gegenübergestellt. 


Beschreibung der Operanden 
der Logo-Vokabeln 


anweisungsliste 
Eine durch Logo ausführbare Liste. 


byte 
Eine ganze Zahl im Bereich 0 bis 255. 


dateiname 
Ein aus Zeichen gebildeter Dateiname. 


diskette 
Bezeichnung der Diskette mit einem 
Namen. 


distanz 
Eine reelle Zahl. 


eigsch 
Die Bezeichnung (Name) einer Eigen- 
schaft einer Eigenschaftsliste. 


farbnummer 
Eine ganze Zahl im Bereich 0 bis 6. 


grad 
Gradzahl eines Winkels. 


laufwerk 
Die Laufwerknummer 0 oder 1. 


liste 
Durch eckige Klammern eingeschlosse- 
ne Logoobjekte. 


n,a,b, z 
Eine beliebige Zahl. 


name 
Ein Wort, das ein Programm, eine Va- 
riable oder Eigenschaftsliste bezeichnet. 


namen 
Eine Namensliste, die Programme oder 
Variable bezeichnet. 


neuername 
wie name. 


objekt, obj 
Ein Logo-Bestandteil (Wort, Liste oder 
Zahl). 


paddlenummer 
Eine ganze Zahl 0 und 1. 


paket 
Logowort zur Benennung eines Pakets. 


pakete 
Liste mit Namen von Paketen. 
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parameter 

Wörter, die von einem Doppelpunkt an- 
geführt werden; sie werden im Zusam- 
menhang mit TO verwendet. 


position, pos 

Eine Liste zweier Zahlen, die die Posi- 
tion der Schildkröte oder des Cursors 
beschreibt. 


präd 

Ein logischer Ausdruck (Prädikat), des- 
sen Auswertung entweder TRUE oder 
FALSE ergibt. 


slot 
Beim Apple die Slotnummer auf der 
Hauptplatine (0 bis 6). 


wort 
Eine Buchstabenfolge, die keinen Zwi- 
schenraum enthalten darf. 


zchn, Zeichen 
Buchstabe, Ziffer oder Satzzeichen. 


Beschreibung der Apple-Logo- 
Vokabeln 


Bemerkung: Einer Vokabel, die durch 
«*» gekennzeichnet ist, können beliebig 
viele Eingabevariable zugeordnet wer- 
den. Falls sich die Anzahl der verwende- 
ten Variablen von der angegebenen un- 
terscheidet, muß der gesamte Ausdruck 
in runden Klammern stehen. Die Voka- 
beln, die unter gewissen Bedingungen 
TRUE ergeben, führen zu FALSE, falls 
diese Bedingungen nicht erfüllt sind. 
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1. Schildkrötengrafik (Turtlegrafik) 


BACK, BK distanz 
Die Schildkröte bewegt sich distanz 
Schritte zurück. 


BACKGROUND, BG 
Ergibt die Farbe des Hintergrundes. 


CLEAN 
Löscht den Grafikschirm, ohne den Zu- 
stand der Schildkröte zu beeinflussen. 


CLEARSCREEN, CS 

Löscht den Bildschirm, bewegt die 
Schildkröte zu Position 0,0 und setzt ihre 
Richtung zu 0. 


DOT position 
Macht an der Bildschirmstelle position 
einen Grafikpunkt (dot). 


FENCE 
Begrenzt die Schildkröte auf dem 
sichtbaren Bildschirmbereich. 


FORWARD, FD distanz 
Bewegt die Schildkröte distanz Schritte 
vorwärts. 


HEADING 
Ergibt die momentane Richtung der 
Schildkröte. 


HIDETURTLE, HT 
Macht die Schildkröte unsichtbar. 


HOME 
Bewegt die Schildkröte zur Position 0,0 
und setzt ihre Richtung auf 0. 
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LEFT, LT grad 
Dreht die Schildkröte um grad Grad 
nach links. 


PEN 
Ergibt den Stiftzustand (PD, PU, PX 
oder PE und die Stiftfarbe als Liste). 


PENCOLOR, PC 
Ergibt den Farbwert des Stifts. 


PENDOWN, PD 
Setzt den Schreiber der Schildkröte auf 
die Zeichenfläche. 


PENERASE, PE 
Setzt den Radierstift ein. 


PENREVERSE, PX 

Setzt den Invertierschreiber der Schild- 
kröte auf die Zeichenfläche (dieser 
Schreiber löscht bereits gezeichnete Li- 
nien und zeichnet Linien auf noch freie 
Flächen). 


PENUP, PU 
Hebt den Schreiber der Schildkröte von 
der Zeichenfläche ab. 


POS 
Ergibt die momentane Position der 
Schildkröte. 


RIGHT, RT grad 
Dreht die Schildkröte um grad Grad 
nach rechts. 


SCRUNCH 
Liefert das aktuelle Streckungsverhält- 
nis des Bildschirms. 
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SETBG farbnummer 
Setzt den Hintergrund auf die durch 
farbnummer bezeichnete Farbe. 


SETHEADING, SETH grad 
Setzt die Richtung der Schildkröte auf 
den Wert grad. 


SETPC farbnummer 
Setzt die Stiftfarbe auf den Wert farb- 
nummer (0 bis 6). 


SETPEN liste 

Die zweielementige liste legt die Stiftfar- 
be und den Zustand der Schildkröte 
(PU, PD, PD, PX) fest. 


SETPOS position 
Setzt die Schildkröte auf die Stelle posi- 
tion. 


SETSCRUNCH a 

Mit diesem Befehl kann das Streckungs- 
verhältnis des Bildschirms verändert 
werden. Normalwert für a ist 1.2. Bei 
kleineren Werten wird das Bild ge- 
staucht, bei größeren Werten gestreckt. 


SETX x 
Bewegt die Schildkröte horizontal zur 
Position x. 


SETY y 
Bewegt die Schildkröte vertikal zur Posi- 
tion y. 


SHOWNP 

Ergibt TRUE, falls der Schreiber der 
Schildkröte auf die Zeichenfläche ge- 
setzt ist. 
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SHOWTURTLE, ST 
Macht die Schildkröte sichtbar. 


TOWARDS position 
Dreht die Schildkröte in Richtung auf 
die angegebene position. 


WINDOW 

Führt dazu, daß der Bildschirm einen 
Ausschnitt aus einer erweiterten Zei- 
chenfläche zeigt. 


WRAP 

Führt dazu, daß die Schildkröte nach 
Verlassen des Bildschirms auf der ge- 
genüberliegenden Seite wieder einge- 
setzt wird. 


XCOR 
Ergibt die momentane X-Position der 
Schildkröte. 


YCOR 
Ergibt die momentane Y-Position der 
Schildkröte. 


2. Wörter und Listen 


ASCII zchn 
Ergibt den ASCII-Wert für zchn. 


BUTFIRST, BF obj 
Ergibt alle Elemente eines Objekts, bis 
auf das erste. 


BUTLAST, BL obj 
Ergibt alle Elemente eines Objekts, bis 
auf das letzte. 


CHAR n 
Ergibt das Zeichen. dessen ASCH-Kode 
n ist. 
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COUNT liste 
Liefert die Anzahl der Elemente von 
liste. 


EMPTYP obj 
Ergibt TRUE, falls obj leer ist. 


EQUALP objl obj2 
Ergibt TRUE, falls objl gleich obj2 ist. 


FIRST obj 
Ergibt das erste Element von obj. 


FPUT obj liste 
Fügt obj als erstes Element in liste ein. 


ITEM n objekt 
Liefert das n-te Element von objekt. 


LAST obj 
Ergibt das letzte Element von obj. 


*LIST objl obj2 

Liefert eine Liste der genannten Objek- 
te unter Beibehaltung der Listen- 
struktur. 


LISTP obj 
Ergibt TRUE, falls obj eine Liste ist. 


LPUT obj liste 
Fügt obj als letztes Element in liste ein. 


MEMBERP obj liste 
Ergibt TRUE, falls obj in liste ist. 


NUMBERP obj 
Ergibt TRUE, falls obj eine Zahl ist. 


*SENTENCE, SE objl 0bj2 
Falls es sich bei den Eingabevariablen 
um Worte handelt, wird aus diesen eine 
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Liste gebildet. Handelt es sich bereits 
um Listen, wird aus allen Objekten der 
Listen eine neue Liste gebildet. 


*WORD wort] wort2 
Fügt die Eingaben zu einem Wort zu- 
sammen. 


WORDP obj 
Ergibt TRUE, falls obj ein Wort ist. 


objl = obj2 
Ergibt TRUE, falls obj] gleich obj2 ist. 


3. Variable 


*LOCAL name(n) 
Macht die Variablen namens name(n) zu 
Lokalvariablen. 


MAKE name obj 
Ordnet name obj zu. 


NAMEP name 
Ergibt TRUE, falls name bereits einem 
Wert zugeordnet ist. 


THING name 
Ergibt das Objekt, auf das name sich 
bezieht. 


4. Arithmetische Operationen 


ARCTAN n 
Liefert den Arcustangens der Zahl n in 
Grad. 


COS n 
Ergibt den Cosinus des Winkels n (n in 
Grad). 


345 


INT n 
Ergibt den ganzzahligen Anteil von n. 


#*PRODUCT a b 
Bildet das Produkt aus den Eingabe- 
werten. 


QUOTIENT a b 
Liefert als Dezimalzahl die Division von 
a durch b. 


RANDOM n 
Ergibt eine Zufallszahl zwischen 0 und 
n-1. 


REMAINDER a b 
Ergibt den Restwert der Division a/b. 


RERANDOM 
Führt zu einer sich wiederholenden Fol- 
ge von Zufallszahlen. 


ROUND n 
Rundet n zu einer ganzen Zahl ab. 


SINn 
Ergibt den Sinus des Winkels n. 


SORT n 
Ergibt die Quadratwurzel aus n. 


*SUM ab 
Ergibt die Summe der Eingaben a und b. 


a+b 
Ergibt a + b. 
a-b 
Ergibt a - b. 
-ax*b 


Ergibt a xb. 
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alb 
Ergibt a /b. 


a<b 
Ergibt TRUE, falls a kleiner als 5 ist. 


a>b 
Ergibt TRUE, falls a größer als b ist. 


a=b 
Ergibt TRUE, falls a gleich b ist. 


5. Definieren und Editieren 


COPYDEF name neuername 

Erzeugt eine Programmkopie unter der 
Bezeichnung neuername gemäß name im 
Arbeitsspeicher. 


DEFINE name anweisungsliste 

Es wird ein Programm mit der Bezeich- 
nung name und dem Inhalt anweisungsli- 
ste definiert. 


DEFINEDP wort 
Liefert TRUE, falls der Benutzer ein 
Programm namens wort definiert hat. 


EDIT, ED name(n) 
Startet den Editor mit dem/den genann- 
ten Programm(en). 


EDNS paket(e) 

Ruft den Editor auf zum Editieren der 
durch paket(e) bezeichneten Wertzuwei- 
sungen. 


END 
Beendet eine durch TO eingeleitete De- 
finition. 
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PRIMITIVEP wort 
Liefert TRUE, falls wort der Name ei- 
ner Logo-Vokabel (primitive) ist. 


TEXT name 
Liefert das Programm name in Form 
einer Anweisungsliste. 


TO name (parameter) 
Beginnt eine Programmdefinition. 


6. Ablaufsteuerungen und 
Bedingungen 


CATCH name anweisungsliste 

Die anweisungsliste wird ausgeführt, 
falls der Befehl THROW name ausge- 
führt wird. 


co 

Steht für CONTINUE und setzt den 
Programmlauf nach einem mit PAUSE 
erzwungenen Halt fort. CO kann nur 
vom Bediener über die Tastatur einge- 
geben werden. 


GO wort 

Sprungbefehl, der zu der angegebenen 
Programmzeile verzweigt, die durch 
wort markiert sein muß (vgl. LABEL). 


IF präd listel (liste2) 
Falls präd TRUE ergibt, wird liste] aus- 
geführt, sonst liste2. 


IFFALSE, IFF liste 

Die Anweisungen in liste werden ausge- 
führt, falls eine vorangegangene Prüf- 
operation mit TEST als Ergebnis ”FAL- 
SE (falsch) geliefert hat. 
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IFTRUE, IFT liste 
Wie IFFALSE. Ausführung der liste nur 
im Wahr-Fall (”TRUE). 


LABEL wort 

Markiert mit wort die Einsprungstelle 
innerhalb eines Programms für den 
Sprungbefehl GO. 


OUTPUT, OP obj 
Übergibt die Ablaufsteuerung und den 
Wert obj an die aufrufende Routine. 


PAUSE 
Hält ein Programm an. 


REPEAT n anweisungsliste 
Führt anweisungsliste n-mal aus. 


RUN anweisungsliste 

Führt anweisungsliste aus. Ergebnis ist, 
was von anweisungsliste ausgegeben 
wird. 


STOP 

Unterbricht das laufende Teilprogramm 
(Prozedur) und übergibt die Ablaufkon- 
trolle an das aufrufende Programm. 


TEST präd 
Ermittelt, ob präd "TRUE oder "FAL- 
SE (wahr oder falsch) ist. 


THROW wort 
Übergibt die Ablaufkontrolle an das 
korrespondierende CATCH wort. 


WAIT n 
Unterbricht für n-mal sechzigstel Sekun- 
den den Programmablauf. 
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7. Logische Operationen 


*AND prädl präd2 
Ergibt TRUE, falls alle 
TRUE sind. 


Prädikate 


NOT präd 
Ergibt FALSE, wenn präd TRUE ist 
und umgekehrt. 


*OR präd] präd2 
Ergibt TRUE, sobald eins der Prädikate 
TRUE ist. 


8. Die Verbindung zur Außenwelt 


‚PRINTER n 
Der Drucker in Slot n wird einge- 
schaltet. 


BUTTONP paddlenummer 
Ergibt TRUE, falls der Trigger des 
durch paddlenummer bezeichneten 
Paddles niedergedrückt ist. 


CLEARTEXT 
Löscht den Textabschnitt des Bild- 
schirms. 


CURSOR 
Liefert die Position des Cursors als 
zweielementige Liste [Spalte Zeile]. 


FULLSCREEN 
Reserviert den ganzen Bildschirm für 
Grafik. 


KEYP 
Ergibt TRUE, falls eine Taste gedrückt, 
aber noch nicht eingelesen wurde. 
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PADDLE paddlenummer 

Liefert den Drehwinkel des durch padd- 
lenummer bezeichneten Paddles als Zahl 
zwischen 0 und 255. 


*PRINT, PR obj 

Druckt obj gefolgt von einem Zeilenvor- 
schub aus (Listen werden ohne äußere 
eckige Klammer ausgedruckt). 


READCHAR, RC 

Liefert das von Tastatur gelesene Zei- 
chen. Falls kein Zeichen ansteht, wartet 
das Programm bis ein Zeichen einge- 
tippt worden ist. 


READLIST, RL 
Wartet bis der Benutzer eine Zeile ein- 
getippt hat, die als Liste geliefert wird. 


SETCURSOR position 
Setzt den Cursor auf die angegebene 
Position. 


SHOW obj 
Druckt obj mit äußeren eckigen Klam- 
mern aus, falls obj eine Liste ist. 


SPLITSCREEN 
Teilt den Bildschirm in Grafik- und 
Textbereich auf. 


TEXTSCREEN 
Stellt den ganzen Schirm für Textausga- 
be zur Verfügung. 


*TYPE obj 
Druckt obj aus, ohne den Cursor an den 
Anfang der folgenden Zeilen zu setzen. 
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9. Verwaltung des Arbeitsspeichers 


BURY paket(e) 

Hat einen Namen oder eine Namenisliste 
paket(e) als Eingabe. Die Inhalte der 
bezeichneten Pakete (Programme und 
Variable) werden versteckt, so daß bei 
Verwendung von POTS, PONS, POPS, 
ERPS, ERNS und SAVE diese nicht 
angesprochen werden. 


ERALL 

Löscht den gesamten Arbeitsspeicher. 
In Apple-Logo kann der Befehl als Ein- 
gabe auch paket(e) haben, so daß in 
diesem Fall nur die zu Paketen zusam- 
mengefaßten Programme und Variable 
angesprochen werden. 


ERASE, ER name(n) 
Löscht die genannten Programme. 


ERN name(n) 
Löscht die genannten Variablen. 


ERNS 

Löscht alle Variablen. 

In Apple-Logo kann der Befehl als Ein- 
gabe auch paket(e) haben, so daß in 
diesem Fall nur die in diesen Paketen 
vorkommenden Variablen angespro- 
chen werden. 


ERPS 

Löscht alle Programme. 

In Apple-Logo kann der Befehl als Ein- 
gabe auch paket(e) haben, so daß in 
diesem Fall nur die in diesen Paketen 
vorkommenden Programme angespro- 
chen werden. 
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NODES 
Ergibt die Anzahl der freien Nodes (No- 
de = Speichereinheit). 


PACKAGE paket name(n) 

Faßt die benannten Programme und/ 
oder Variablen unter dem angegebenen 
Paketnamen paket zusammen. 


PKGALL paket 

Faßt den gesamten Arbeitsspeicherin- 
halt unter dem Paket namens paket zu- 
sammen. 


PO name(n) 
Druckt die Definition der benannten 
Programme. 


POALL 

Druckt die Definition der benannten 
Programme und Variablen. 

In Apple-Logo kann der Befehl als Ein- 
gabe auch paket(e) haben, so daß in 
diesem Fall nur die zu Paketen zusam- 
mengefaßten Programme und Variablen 
angesprochen werden. 


PONS 

Druckt die Namen und Werte aller Va- 
riablen. 

In Apple-Logo kann der Befehl als Ein- 
gabe auch paket(e) haben, so daß in 
diesem Fall nur die in diesen Paketen 
vorkommenden Variablen angespro- 
chen werden. 


POPS 

Druckt die Definition aller Programme. 
In Apple-Logo kann der Befehl als Ein- 
gabe auch paket(e) haben, so daß in 
diesem Fall nur die in diesen Paketen 
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vorkommenden Programme angespro- 
chen werden. 


POTS 

Druckt die Namen aller definierten Pro- 
gramme. 

In Apple-Logo kann der Befehl als Ein- 
gabe auch paket(e) haben, so daß in 
diesem Fall nur die in diesen Paketen 
vorkommenden Programme angespro- 
chen werden. 


RECYCLE 
Erzwingt eine Garbage-Collection. 


REPARSE 

Spezielle Systemfunktion, die interne 
Reorganisationsmechanismen gewollt 
erzwingt, die aber immer automatisch in 
bestimmten Zeitabständen stattfindet. 


UNBURY paket(e) 
Hebt die Wirkung von BURY auf. 


10. Dateien 


CATALOG 
Listet das Inhaltsverzeichnis der Disket- 
te auf. 


DISK 

Liefert Informationen über die augen- 
blicklich im Zugriff stehende Diskette 
(Diskettenbezeichnung, Slot und Lauf- 
werknummer). 


ERASEFILE dateiname 
Löscht auf der Diskette die Datei datei- 
name. 
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LOAD dateiname (paket) 

Lädt in den Arbeitsspeicher die Datei 
dateiname. Wird zusätzlich ein Paketna- 
me paket angegeben, so wird der gesam- 
te Dateiinhalt der Diskette im Arbeits- 
speicher unter diesem Paketnamen zu- 
sammengefaßt. 


SAVE dateiname (paket) 

Speichert den Inhalt des Arbeitsspei- 
chers unter dem Namen dateiname auf 
der Diskette. Wird zusätzlich ein Name 
oder eine Namensliste eingegeben, so 
werden die Inhalte des (der) so bezeich- 
neten Pakets (Pakete) selektiv aus dem 
Arbeitsspeicher auf die Diskette gespei- 
chert. 


SETDISK laufwerk slot diskette 
Bestimmt das durch laufwerk bezeichne- 
te Diskettenlaufwerk für das Speichern 
und/oder Lesen von Dateien. s/ot und 
diskette können wahlweise die Slotnum- 
mer und die vergebene Diskettenbe- 
zeichnung vorschreiben. 


11. Eigenschaftslisten 


GPROP name eigsch 
Liefert den Wert der Eigenschaft eigsch 
von name. 


PLIST name 
Liefert die Eigenschaftsliste name. 


PPROP name eigsch objekt 
Ordnet der Eigenschaftsliste name für 
eigsch den Inhalt objekt zu. 
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PPS 

Listet alle Eigenschaftslisten des Ar- 
beitsspeichers auf. In Apple-Logo kann 
zusätzlich noch über die Angabe eines 
Paketnamens (Paketnamensliste) eine 
Teilmenge selektiert und aufgelistet 
werden. 


REMPROP name eigsch 
Entfernt aus einer Eigenschaftsliste na- 
me die angegebene Eigenschaft eigsch. 


12. Spezielle Logo-Vokabeln 


.BPT 
Ruft den Apple-Monitor auf. Rückkehr 
zu Logo mit 803G. 


.CONTENTS 

Listet alle dem System bekannten Dinge 
auf (Logo-Vokabeln, Wertzuweisungen, 
Programme, Eigenschaftslisten usw.). 


.DEPOSIT n byte 
Speichert das Datum byte in der Adres- 
se n (dezimal) 


.EXAMINE n 
Ruft den Inhalt der Adresse n (dezimal) 
auf. 


13. Spezialwörter 


END 
Signalisiert Logo, daß die Definition ei- 
ner Funktion beendet ist. 


ERRACT 

Eine Systemvariable, die, falls TRUE, 
Logo bei auftretenden Fehlern pausie- 
ren läßt. 
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ERROR 
Markierung für THROW, falls Fehler 
entstehen. 


FALSE 
Spezielle Eingabe für AND, IF, NOT, 
OR und TEST. 


PROCPKG 
Eigenschaft eines Benutzerprogramm- 
namens, dessen Wert sein Paket ist. 


REDEFP 

Systemvariable, die, falls TRUE, das 
Umdefinieren von Logo-Vokabeln er- 
laubt. (Hilfreich für ein Eindeutschen 
der Logo-Vokabeln.) 


STARTUP 
Systemvariable, die, falls eine Liste, Lo- 
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go nach dem Laden des Systems diese 
Liste ausführen läßt. 


.SYSTEM 

Paket, das ERRACT und REDEFP ent- 
hält und anfänglich versteckt (unsicht- 
bar) ist. 


TOPLEVEL 

Markierung für THROW, um die Kon- 
trolle in den Toplevel-Zustand zu über- 
führen. 


TRUE 
Spezielle Eingabe für AND, IF, NOT, 
OR und TEST. 


VALPKG 
Eigenschaft eines Variablennamens, 
dessen Wert sein Paket ist. 
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Andere Logoversionen auf Personalcomputern 


Das hier vorgestellte LCSI-Logo für den Apple IVIIe (Apple Logo I) findet man im 
Kern ebenso in den LCSI-Versionen für: 


Atari 600 XL, 800 XL, 130 XE 
IBM und kompatible MS-DOS-Rechner, 
Apples Macintosh. 


Gleiches gilt für die Logoversion der Rechner: 
Atari 260 ST, 520 ST und 520 ST+. 


Diese von Digital Research gelieferte Version (Atari ST Logo) enthält nahezu 
identisch die Funktionen von Apple Logo I. 

Das DR.Logo (Digital Research) für MS-DOS-Rechner hat einen nahezu mit 
Apple Logo I identischen Kern, nur daß alle primitives in Kleinbuchstaben existieren 
(es lebe der Unterschied!). 

Das Apple Logo II (für Apple IIe/c unter ProDos), das LCSI-IBM-Logo und das 
LCSI-Macintosh-Logo sind die am weitesten entwickelten Logoversionen von allen 
bisher genannten, da diese zusätzlich über primitives zum direkten Zugriff (low level 
//O) auf externe Speicher verfügen. Man kann mit ihnen Dateiverarbeitungssysteme 
und Datenbasen realisieren. 

Die eben genannten Rechner und Logoversionen weisen neben diesem deckungs- 
gleichen Kern natürlich zusätzliche Logofunktionen auf, um sich von den Konkur- 
renzprodukten abzuheben. Das zeigt sich insbesondere bei den Grafikbefehlen, mit 
denen teilweise eine Fülle von grafischen Effekten erreicht werden kann. Man kann 
Figuren (sprites, shapes) bezüglich Farbe, Position, Beschleunigung und Geschwin- 
digkeit definieren. Die besten Effekte bietet das LCSI-Logo für Atari 800 XL (auch 
Commodore-Logo bietet mit Abstrichen Entsprechendes). Hinzu kommen noch die 
mehrkanaligen Tongeneratoren bei beiden Rechnern. 

Weiterführende Funktionen, die das LCSI-Logo in der Version von Apple Logo I 
nicht hat, werden nicht angeführt, da hier nur die verwendeten Funktionen des Buchs 
vergleichbar sein sollen. 

Andere Logoversionen werden im Folgeabschnitt den LCSI-Funktionen mit deren 
entsprechendem Namen gegenübergestellt. Bei Gleichheit wird ein Kreuz gemacht. 
Ein kleines Kreuz bedeutet gleiches Wort in Kleinschrift. Kleinschrift weisen Schnei- 
der CPC und DR.Logo für MS-DOS-Rechner auf. Fehlt eine Funktion, so wird ein 
Strich abgebildet. Manchmal wird eine äquivalente Funktionsfolge angeführt. Die 
Tabelle enthält in der rechten Spalte Hinweisziffern. Am Ende der Übersicht werden 
Ersatzfunktionen für die fehlenden Logofunktionen geboten. Die Editierfunktionen 
und/oder Kontrolltasten für Cursorsteuerung, Abruf des Tastaturpuffers, Programm- 
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abbruch oder Programminhalt sind bei den Versionen leicht unterschiedlich. Hierzu 
sollte man jeweils das Handbuch der vorliegenden Version konsultieren. 
Nachfolgende Logoversionen werden dem LCSI-Logo gegenübergestellt: 


Atari ST Logo (Digital Research) 

Logo für CPC 464, 664 und 6128 (Digital Research) 
DR.Logo für MS-DOS-Rechner (Digital Research) 
MIT-Logo (für Apple und Commodore 64) 
MIT-Logo deutsch 

Commodore 64 Logo (basierend auf MIT-Logo) 


DR.Logo weist in der Darstellung von Eigenschaftslisten Unterschiede zu LCSI- 
Logo auf. Um die Buchbeispiele des Kapitels 18 nachzumachen, sollte man gegebe- 
nenfalls die unter Anmerkung 3 angeführten Routinen GPROP, PLIST, PPROP, 
PPS und REMPROP auf die jeweilige Version umsetzen. 
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LCSI-Logo Atari 2605T DR.Logo DR.Logo 
Apple Logo I S20ST, 5S20ST+ (MS-DOS) (Schneider) 
x x x H 
+ x x x 
- x » x 
„EFT 
. CONTENTS X x - 
.„DEFOSIT x x x 
„EXAMINE x x x 
.FRINTER FRINTON copyon - 
„FRINTER Ö PRINTOFF copyoff 
„SYSTEM 
/ x x » 
b* x x x 
= X x f 
> x x x 
AND x ” x 
ARCTAN x x - 
ASCII x ” { 
BACK, BK x x bk 
BACKGROUND, BG FIRST SF x first sf 
EURY x bury - 
BEUTFIRST,BF X x bf 
EUTLAST,EL x x bl 
BUTTONP - x » 
CATALOG DIR getfs dir 
CATCH x x N 
CHAR x x N 
CLEAN X H x 
CLEARSCREEN, CS x x cs 
CL.EARTEXT CLEARTEXT, CT cleartext,ct ct 
co x x x 
COPYDEF x » - 
cos X X x 
COUNT x x x 
CURSOR = x in 
DEFINE x » ee 
DISK FATH defaultd 
DOT TT ’. x x 
EDIT, ED x x ed 
EDNS x x u 
EMPTYP x x x 
END x » H 
EQUALF, = x H = 
ERALL x * - 
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C64-Logo MIT-Logo MIT-Logo Hinweise 
deutsch 
RANDOMIZE RANDOMIZE STARTEZUFALL, 82 
x x x 
x X x 
x X x 
.„BPT „BPT 
X _ _ 
x x „LEGE 
x X .HOLE 
PRINTER OUTDEV AUSGANG 
NOPRINTER OUTDEV © AUSGANG © 
x x x 
X x x 
x x x 
x x x 
ALLOF ALLOF ALLE? 
ATAN ATAN x 
x X ASC 
x x RUECKWAERTS, RW 
DRAWSTATE TURTLESTATE IGELZUSTAND, IZ 
x x OHNEERSTES, DE 
x x OHNELETZTES, OL 
PADDLEEUTTON FADDLEBUTTON KNOPF 
x x INHALT 
x x ZEICHEN 
CLEARSCREEN,CS CLEARSCREEN, CS LOESCHEEBILD, LB 
DRAW DRAW BILD 
x x LOESCHETEXT 
CONTINUE, CO CONTINUE,CO WEITER, WT 
- - - 2) 
x X x 
x - - 5) 
CURSORFOS - - 
x x DEF 2) 
STAMPCHAR °’. - = 
x x x 
EMPTY? - ea K}) 
x x ENDE 
= = = 2) 5 
ER ALL ERASE ALL VERGISS ALLES 
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LCSI-Logo 
Apple Logo I 


ERASE, ER 
ERASEFILE 
ERN 
ERNS 
ERPS 
ERRACT 
ERROR 
FALSE 
FENCE 
FIRST 
FORWARD, FD 
FPUT 
FULLSCREEN 


HIDETURTLE, HT 
HOME 
IF 
IFFALSE, IFF 
IFTRUE, IFT 
INT 
ITEM 
KEYP 
LABEL 
LAST 
LEFT, LT 
LIST 
LISTP 
LOAD 
LOCAL 
LPUT 
MAKE 
MEMBERP 
NAME 
NAMEP 
NODES 
NOT 
NUMBERF 
OR 
OUTPUT, OP 
PACKAGE 
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Atari 26408T 
5205T, 520ST+ 


X 
ERASEFILE,ERF 


xX.XRXXRXIXIXIRT-IXIIIIXTIITIITIIRTIIXTIXIITIITIXIITIIRIITIIXIRXK 


DR.Logo 
(MS-DOS) 


xxıxx xx 


xxx xxXXXXXX 


xxx xx x x ıxXXXNXXXXXXXXXX 


DR. 


Logo 


(Schneider) 


first 


x 


a 


xx hxı hxıx x X x | 
u 


bf bf tf 


xzxzxxx I Iı x ı T 
rt 


rt 


xx ıxej 


x 1 


xxx ıı 


[e} 
DO 


C64-Logo 
RANDOMIZE 


x 
X 
ERNAME 
ER NAMES 
ER PROCEDURES 


x 
NOWRAP 


xxx XXX I XXX XXX 


INTEGER 


MEMBER? 


THING? 
.NODES 
x 
NUMBER? 
ANYOF 
x 
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MIT-Logo 


RANDOMIZE 


x 

X 
ERNAME 
ER NAMES 


ER PROCEDURES VERGISS PROZEDUREN 


x 
NOWRAFP 


xxRX XXX IX &KX X 


INTEGER 


THING? 
.NODES 
x 
NUMBER? 
ANYOF 
x 


STARTEZUFALL, 


VERGISSDATEI, 


VERSTECKKIGEL, 


MIT-Logo 
deutsch 


VERGISS 


VERGISS NAMEN 


FALSCH 
RAND 
ERSTES, ER 
VORWAERTS, VW 
MITERSTEM, ME 
VOLLBILD 
GEHE 


KURS 


MITTE 
WENN 
WENNFALSCH, WF 
WENNWAHR, WT 
X 


TASTE? 


LETZTES 
LINKS, LI 
LISTE 
LISTE? 
LADE 


MITLETZTEM, ME 
SETZE 


NAME? 
„KNOTEN 
NICHT 
ZAHL? 
EINES? 
RUECKGABE, RG 


57 


vD 


vi 


391 


Hinweise 
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LCSI-Logo Atari 2Z40ST DR.Logo DR.Logo 
Apple Logo I S20ST, S2OST+ (MS-DOS) (Schneider) 
PADDLE - x x 
FAUSE x x x 

PEN TURTLEFACTS, TF x tf 
PENCOLOR, FC FIRST BF TF x first bf t 
PENDOWN, PD x x pd 
FENERASE, FE X x pe 

FENREVERSE, PX x x px 
FENUP, FU X x pu 
FKGALL x x - 
FLIST x x x 

FO x # x 

FOALL x x - 

PONS X x - 

FOFS X X = 

POS x X - 

POTS x x x 

PFROP x x x 
PPS x x = 
FRIMITIVEP X x - 
PRINT, FR X x pr 
FROCFKG « FAK 
PRODUCT X x = 
QUOTIENT x x = 
RANDOM x x x 
READCHAR, RC x x rc 
READLIST, RL x * ri 
RECYCLE x x x 
REDEFP x REDEFP 
REMAINDER x x = 
REMFROP x x x 
REFARSE 
REFPEAT x x x 
RERANDOM x x = 
RIGHT, RT x x rt 
ROUND x x - 
RUN x { N 
SAVE x x H 
SCRUNCH FIRST BF BFOSF last sf 
SENTENCE, SE x x se 
SETEBG x x setpal 
SETCURSOR x = 


SETDISK SETPATH setd ka 
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C64-Logo MIT-Logo MIT-Logo Hinweise 
deutsch 
RANDOMIZE RANDOMIZE STARTEZUFALL, 52 
x x STEUER 
x x x 
DRAWSTATE TURTLESTATE IGELZUSTAND, IZ 
FIRST BF BF BF *%) LAST TURTLESTATE LAST IZ %X) DRAWSTA 
x X STIFTAB, SA 
PENCOLOR -1 PENCOLOR -1 - 
x x STIFTHOCH, SH 
= - - 5) 
PRINTOUT, PO x ZEIGE, ZG 
PO ALL FO ALL ZEIGE ALLES 2) 
PO NAMES PO NAMES ZEIGE NAMEN 2) 
PO FROCEDURES PO FROCEDURES ZEIGE PROZEDUREN 2) 
x = - 2) 
X PO TITLES, POTS ZEIGE TITEL, ZT 
- — - 5) 
- .- =) 
x X DRUCKEZEILE, DZ 
X x DIV 
x x ZUFALLSZAHL, ZZ 
READCHARACTER, RC x TASTE 
REQUEST, RO REQUEST EINGABE, EG 
.GSCOLL .GSCOLL .GCOLL 
x x REST 2) 
- u - 5) 
x x WIEDERHOLE, WH 
x x RECHTS, RE 
X x RUNDE 
x x TUE 
x x BEWAHRE, BW 


SE SATZ 
BACKGROUND, BG BACKGROUND, .EG HINTERGRUND, HG 
CURSOR CURSOR ELINKER 
X _ = 


x 
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LCSI-Logo 
Apple Logo I 


SETHEADING, SETH 
SETPC 
SETPEN 
SETPOS 

SETSCRUNCH 
SETX 
SETY 
SHOW 

SHOWNP 
SHOWTURTLE, ST 
SIN 
SPLITSCREEN 
SORT 
STARTUFP 
STOP 
SUM 
TEST 
TEXT 
TEXTSCREEN 
THING, : 


TOFLEVEL 
TOWARDS 
TRUE 
TYPE 
UNBURY 
VALFKG 
WAIT 
WINDOW 
WORD 
WORDF 
WRAP 
XCOR 
YCOR 


Atari 
S2OST, 


LAS 


x IxXIxXx XXX XXX XIX XXX 


x.XxXXXXX I DÄIX<XKX XXX IX XX 
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ZS05T 
S2OST+ 


TF 


DR.Logo 
(MS-DOS) 


xxxıxx 


x x 


DR.Logo 
(Schneider) 
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C64-Logo MIT-Logo MIT-Logo Hinweise 
deutsch 
RANDOMIZE RANDOMIZE STARTEZUFALL, 52 
X x AUFKURS, Ak 
FENCOLOR, PC FENCOLOR, FC FARBE 
SETXY SETXY AUFXY 
„ASPECT „ASPECT „SKALA 
x x AUFX 2) 
x x AUFY 2) 
FPRINT - 5) 


FIRST BF FIRST BF TURTLESTATE FIRST BF IZ %) DRAWSTATE 


x X ZEIGIGEL, ZI 
x x x 
X x TEILBILD 
x X Aw 
x x RUECKKEHR, RK 
x x FRUEFE 
x x PRLISTE, FR 2) 
X = = 
X x WERT, : 2) 
X x LERNE 
X X AUSSTIEG 
x X RICHTUNG, RI 
x x WAHR 
PRINT PRINTI DRUCKE, DR 
x x WORT 
WORD? WORD? WORT”? 
x X RANDSFRUNG, RS 
X X xKO 2) 
x x YkKO 2) 
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Anmerkung 1 


Diese Logoversionen markieren die Einsprungstelle ohne den Befehl LABEL. Sie 
benutzen das in Verbindung mit GO eingegebene Wort ohne Anführungsstriche und 
mit nachgestelltem Doppelpunkt: 


START: TF ......4::::::.: 


GO "START 


Anmerkung 2 


Die enorm abgemagerte DR.Logo-Version für die Rechner CPC 464, 664 und 6128 
haben alle Grundfunktionen, um fehlende Funktionen selbst zu definieren. Da 
Eigenschaftslisten und auch die Markierung von Wertzuweisungen und Benutzer- 
funktionen mittels entsprechenden Systemvariablen beibehalten wurden, lassen sich 
praktisch alle gewünschten Fehlfunktionen erstellen. Nachfolgend werden in alpha- 
betischer Reihenfolge die gemäß Tabelle angeführten Funktionen aufgelistet. 


to erns 
catch "error [ern glist ".AFPV] 
end 


to equalp :a :b 
op sa = :b 
end 


to erps 
catch "error [er glist ".DEF] 
end 


to home 
setpos [O 0] 
seth Ö 

end 


to last :obj 
op item count :obj :obj 
end 


to listp :obj 

if or numberp :obj wordp :obj [op "FALSE] 
op "TRUE 

end 
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to memberp :obj :worin 

label "start 

if emptyp :worin [op "FALSE] 

if :obj = first :worin [op "TRUE] 
make "worin bf :worin 

go "start 

end 


to poall 
pops 
pons 
end 


to pons 
catch "error [po glist ".APV] 
end 


to pops 
catch "error [po glist ".DEF] 
end 


to pos 
op se first tf first bf tf 
end 


to remainder :zahl :durch 
op (zahl - :durch %* int :zahl / :durch) 
end 


to setx :ıx 
setpos se :x ycor 


end 

to sety :ıy 

setpos se xcor :y 
end 


to text :name 
op gprop :name ".DEF 
end 


to thing :obj 
op run se word ": :sobj [] 
end 


to xcor 
op first tf 
end 


to ycor 
op first bf tf 
end 
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Anmerkung 3 


Commodore-Logo (C 64 und C 128) und die MIT-Logo-Versionen bieten nicht das 
Konzept der Eigenschaftslisten und die Möglichkeit, Teilmengen von Variablen und 
Benutzerfunktionen im Arbeitsspeicher durch «Etikettierung» als Pakete zu kenn- 
zeichnen und separat zu verarbeiten (wegspeichern, löschen, laden). Ebenso wird das 
Lokalvariablenkonzept von MIT-Logo nicht genügend unterstützt. Für letztere müs- 
sen in den nachfolgenden Benutzerfunktionen dann die Anweisungszeilen mit 
LOCAL entfallen. Die benutzten Variablennamen sollten dann tunlichst gegen 
ausgefallene und sonst nicht benutzte Namen vertauscht werden, um Seiteneffekte zu 
vermeiden. Nach Möglichkeit diese Namen sogar löschen. 


TO EMFTYF :OBJ 


IF ANYOF :0OBJ = [] :0BJ = " THEN OUTFUT "TRUE 
OUTFUT "FALSE 
END 


TO EQUALF :A :B 
OUTFUT :A = :B 
END 


TO COUNT :OBJ 

LOCAL "SUM 

MAKE "SUM © 

START: 

IF EMPTYP :OBJ OUTFUT :5UM 
MAKE "SUM :SUM + 1 

MAEE "OBJ EF :OBJ 

60 "START 

END 


TO GFROP :NAME :EIGSCH 

IF NOT NAMEF :NAME OUTPUT [] 

LOCAL "LISTE 

MAKE "LISTE THING :NAME 

IF NOT MEMBERF :EIGSCH :LISTE OUTFUT L[] 

START: 

IF FIRST :LISTE = :EIGSCH OUTFUT FIRST BF :LISTE 
MAKE "LISTE BF BF :LISTE 

60 "START 

END 


TO ITEM :N :OBJ 

IF EMPTYP :0OBJ OUTPUT "FEHLER 
REFEAT :N — 1 [MAKE "OBJ BF :OBJ] 
OUTFUT FIRST :OBJ 

END 
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TO MEMBERP :WAS :OBJ 

IF EMFTYP :0BJ OUTFUT "FALSE 

IF :WAS = FIRST :0BJ OUTPUT "TRUE 
OUTFUT MEMBERP :WAS BF :DBJ 

END 


TO FLIST :NAME 
DUTFUT :NAME 
END 


TO FFROF :NAME :EIGSCH :WERT 
IF NOT NAMEP "OPROPS MAKE "ÖFPROFS :NAME 
IF NOT MEMBERP :NAME :3PROFS MAKE "SFROFS SE :SFROFS :NAME 
IF NOT NAMEP :NAME MAKE :NAME (LIST :EIGSCH SE :WERT LJ) STOP 
LOCAL "LISTE 
MAKE "LISTE THING :NAME 
IF NOT MEMBERF :EIGSCH :LISTE 
THEN MAKE :NAME SE :LISTE (LIST :EIGSCH SE :WERT LI) STOP 
LOCAL "VORN 
MAKE "VORN [] 
START: 
TEST :EIGSCH = FIRST :LISTE 
IFF REFEAT 2 [MAKE "VORN LPUT :LISTE :VORN MAKE :NAME BF :LISTE]I 
IFF 60 "START 
MAKE "VORN LFUT FIRST :LISTE :VORN 
MAKE "VORN LPUT SE :WERT FIRST BF :LISTE :VORN 
IF 2 < COUNT :LISTE MAKE "VORN SE :VORN BF BF :LISTE 
MAKE :NAME : VORN 
END 


TO FPS 

LOCAL "LISTE 

MAKE "LISTE :9FROFPS 

START: 

LOCAL "EIGSCH 

MAKE "EIGSCH THING FIRST :LISTE 

REPEAT (COUNT :EIGSCH) / 2 L(PR FIRST :LISTE "’S FIRST :EIGSCH 
"IS (LIST FIRST BF :EIGSCH)) MAKE "EIGSCH BF BF :EIGSCH] 

MAKE "LISTE BF :LISTE 

IF NOT EMPTYP :LISTE GO "START 

END 


TO REMFROP :NAME »:EIGSCH 

(LOCAL "LISTE "VORN) 

MAKE "LISTE THING :NAME 

MAKE "VORN [] 

IF NOT MEMBERF :EIGSCH :LISTE STOP 
START: 

TEST (:EIGSCH = FIRST :LISTE) 

IFT MAKE :NAME SE :VORN BF EF :LISTE 


IFT IF EMFTYP THING :NAME THEN RUN SE "ERN WORD "" :NAME STOP ELSE 
REFEAT 2 [MAKE "VORN LFUT FIRST :LISTE :VORN MAKE "LISTE BF :LISTE 
60 "START 

END 


TO SHOW :OBJ 
IF LISTF :0BJ THEN FR (LIST :0OBJ) ELSE FR :OBJ 
END 


366 Anhang 


Kreis- und Kreisbogenfunktionen 


Die im Buch im Kapitel 5 verwendeten, von Apple mitgelieferten Benutzerfunktio- 
nen ARCR, ARCL, CIRCLEI und CIRCLER werden hier als deutschsprachige 
Funktionen vorgestellt. Die Funktion ROUND kann durch INT ersetzt werden, falls 
die jeweilige Version ROUND nicht als Systemfunktion hat. 


TO KREISR :RADIUS 
REPEAT 36 [RT 5 FD 0.174532 % :RADIUS RT 5] 
END 


TO BOGENL :RADIUS :GRAD 
REPEAT ROUND :GRAD / 10 [LT 5 FD 0.174532 % :RADIUS LT 5] 
END 


TO BOGENR :RADIUS :GRAD 
REPEAT ROUND :GRAD / 10 [RT 5 FD 0.174532 % :RADIUS RT 5] 
END 


TO KREISL :RADIUS 
REPEAT 36 [LT 5 FD 0.174532 % :RADIUS LT 5) 
END 
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